home *** CD-ROM | disk | FTP | other *** search
| MacBinary | 1995-05-25 | 77.0 KB | [TarR/TarO] |
view JSON data
|
view as text
|
open on a Mac
|
open on a PC
This file was processed as: MacBinary
(archive/macBinary).
You can browse this item here: Lifetime
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| MacBinary (archive/macBinary)
| fallback
| Supported |
| 100%
| file
| MacBinary II, inited, busy, system, bundle, Sun Jul 4 08:00:00 1993, modified Thu May 25 13:04:32 1995, creator 'TarO', type 'TarR', 28384 bytes "Lifetime" , at 0x6f60 50235 bytes resource
| default (weak)
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| MacBinary 2
| default (weak)
| |
| 100%
| lsar
| MacBinary
| default
|
|
| id metadata |
|---|
| key | value |
|---|
| macFileType | [TarR] |
| macFileCreator | [TarO] |
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 4c 69 66 65 74 69 | 6d 65 00 00 00 00 00 00 |..Lifeti|me......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 61 72 52 54 61 72 | 4f 35 00 00 00 00 00 00 |.TarRTar|O5......|
|00000050| 00 00 00 00 00 6e e0 00 | 00 c4 3b a8 5c 76 c0 ab |.....n..|..;.\v..|
|00000060| ea 69 20 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.i .....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 4c 57 00 00 |........|....LW..|
|00000080| 00 00 5a 00 53 54 41 4b | ff ff ff ff 00 00 00 00 |..Z.STAK|........|
|00000090| 00 00 00 0a 00 00 6e e0 | 00 00 5a 00 00 00 00 00 |......n.|..Z.....|
|000000a0| 00 00 00 00 00 00 00 01 | 00 00 0a 3a 00 00 00 01 |........|...:....|
|000000b0| 00 00 0b 97 00 00 09 b9 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 05 00 00 10 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 02 10 80 00 02 20 80 00 | 02 20 80 00 02 20 80 00 |..... ..|. ... ..|
|000000f0| df 09 fb d6 00 00 00 00 | 00 3f 00 10 01 27 01 b0 |........|.?...'..|
|00000100| 00 00 00 00 01 80 02 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 0d 85 00 00 0c bf | 00 e8 01 a0 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........|
|00000350| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""|
|00000360| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.|
|00000370| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........|
|00000380| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........|
|00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|000003a0| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|000003b0| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|000003e0| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|00000440| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|00000450| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00000690| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|000006a0| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|000006b0| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|000006c0| b0 b0 b0 b0 b0 b0 b0 0d | 4c 49 46 45 54 49 4d 45 |........|LIFETIME|
|000006d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000006e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000006f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 54 61 | | Ta|
|00000700| 72 6f 74 57 6f 72 6b 73 | 20 4c 61 79 6f 75 74 0d |rotWorks| Layout.|
|00000710| 56 65 72 73 69 6f 6e 20 | 31 2e 31 2e 34 0d 0d 43 |Version |1.1.4..C|
|00000720| 6f 70 79 72 69 67 68 74 | 20 a9 20 53 69 6d 6f 6e |opyright| . Simon|
|00000730| 20 50 6f 69 73 73 6f 6e | 20 31 39 39 33 d0 31 39 | Poisson| 1993.19|
|00000740| 39 35 0d 41 6c 6c 20 52 | 69 67 68 74 73 20 52 65 |95.All R|ights Re|
|00000750| 73 65 72 76 65 64 20 57 | 6f 72 6c 64 77 69 64 65 |served W|orldwide|
|00000760| 2e 0d 0d 48 41 4e 44 4c | 45 52 53 3a 0d 4c 69 66 |...HANDL|ERS:.Lif|
|00000770| 65 74 69 6d 65 3a 20 20 | 20 20 73 74 61 72 74 44 |etime: | startD|
|00000780| 69 76 69 6e 61 74 69 6f | 6e 2c 72 65 43 61 6c 63 |ivinatio|n,reCalc|
|00000790| 75 6c 61 74 65 2c 63 61 | 6c 63 75 6c 61 74 65 4c |ulate,ca|lculateL|
|000007a0| 69 66 65 74 69 6d 65 0d | 49 6e 74 65 67 72 61 74 |ifetime.|Integrat|
|000007b0| 69 6f 6e 3a 20 69 6e 69 | 74 50 6c 75 67 49 6e 2c |ion: ini|tPlugIn,|
|000007c0| 66 69 6e 69 73 68 53 61 | 76 65 2c 6c 6f 61 64 45 |finishSa|ve,loadE|
|000007d0| 78 74 72 61 49 6e 66 6f | 0d ca 20 20 20 20 20 20 |xtraInfo|.. |
|000007e0| 20 20 20 20 20 20 61 64 | 64 45 78 74 72 61 54 61 | ad|dExtraTa|
|000007f0| 67 28 29 2c 61 64 64 53 | 61 76 65 49 6e 66 6f 28 |g(),addS|aveInfo(|
|00000800| 29 0d 52 65 70 6c 61 63 | 65 6d 65 6e 74 3a 20 61 |).Replac|ement: a|
|00000810| 64 64 44 65 74 61 69 6c | 73 2c 63 61 6c 63 44 61 |ddDetail|s,calcDa|
|00000820| 74 65 28 29 2c 62 6c 61 | 6e 6b 43 61 72 64 73 2c |te(),bla|nkCards,|
|00000830| 63 68 65 63 6b 46 69 72 | 73 74 2c 73 65 74 50 6f |checkFir|st,setPo|
|00000840| 73 69 74 69 6f 6e 0d ca | 20 20 20 20 20 20 20 20 |sition..| |
|00000850| 20 20 20 20 73 65 74 43 | 61 72 64 2c 75 70 64 61 | setC|ard,upda|
|00000860| 74 65 57 69 6e 64 6f 77 | 2c 6d 6f 75 73 65 45 6e |teWindow|,mouseEn|
|00000870| 74 65 72 2c 6d 6f 75 73 | 65 4c 65 61 76 65 2c 6d |ter,mous|eLeave,m|
|00000880| 6f 75 73 65 57 69 74 68 | 69 6e 0d ca 20 20 20 20 |ouseWith|in.. |
|00000890| 20 20 20 20 20 20 20 20 | 75 70 64 61 74 65 59 65 | |updateYe|
|000008a0| 61 72 73 0d 46 75 6e 63 | 74 69 6f 6e 73 3a 20 20 |ars.Func|tions: |
|000008b0| 20 70 65 72 73 6f 6e 61 | 6c 69 74 79 2c 77 68 69 | persona|lity,whi|
|000008c0| 63 68 43 79 63 6c 65 2c | 65 6e 64 4e 75 6d 62 65 |chCycle,|endNumbe|
|000008d0| 72 2c 73 6d 61 6c 6c 44 | 61 74 65 2c 61 62 62 72 |r,smallD|ate,abbr|
|000008e0| 65 76 59 65 61 72 0d ca | 20 20 20 20 20 20 20 20 |evYear..| |
|000008f0| 20 20 20 20 77 68 69 63 | 68 50 65 72 73 6f 6e 61 | whic|hPersona|
|00000900| 6c 69 74 79 2c 6c 69 66 | 65 53 74 72 69 6e 67 0d |lity,lif|eString.|
|00000910| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00000920| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00000930| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00000940| b0 b0 b0 b0 b0 b0 b0 b0 | b0 b0 b0 b0 b0 b0 b0 b0 |........|........|
|00000950| b0 b0 b0 b0 b0 b0 b0 0d | 0d 0d 2d 2d 20 a5 20 4c |........|..-- . L|
|00000960| 49 46 45 54 49 4d 45 0d | 0d 6f 6e 20 73 74 61 72 |IFETIME.|.on star|
|00000970| 74 44 69 76 69 6e 61 74 | 69 6f 6e 20 74 68 65 44 |tDivinat|ion theD|
|00000980| 61 74 61 0d 67 6c 6f 62 | 61 6c 20 75 73 65 72 44 |ata.glob|al userD|
|00000990| 61 74 65 2c 74 68 65 52 | 65 61 64 69 6e 67 73 2c |ate,theR|eadings,|
|000009a0| 6c 69 6e 65 4e 6f 2c 6d | 61 63 53 68 75 66 66 6c |lineNo,m|acShuffl|
|000009b0| 65 2c 74 68 65 43 75 72 | 72 65 6e 74 59 65 61 72 |e,theCur|rentYear|
|000009c0| 2c 20 c2 0d 76 69 65 77 | 69 6e 67 59 65 61 72 2c |, ..view|ingYear,|
|000009d0| 74 68 65 4d 6f 64 65 73 | 2c 63 61 72 64 73 53 61 |theModes|,cardsSa|
|000009e0| 76 65 64 2c 74 65 6d 70 | 53 74 61 63 6b 73 0d 62 |ved,temp|Stacks.b|
|000009f0| 6c 61 6e 6b 57 69 6e 73 | 0d 68 69 64 65 46 69 6e |lankWins|.hideFin|
|00000a00| 64 65 72 0d 69 66 20 74 | 68 65 44 61 74 61 20 3d |der.if t|heData =|
|00000a10| 20 22 22 20 74 68 65 6e | 0d 72 65 70 65 61 74 20 | "" then|.repeat |
|00000a20| 66 6f 72 65 76 65 72 0d | 67 65 74 20 28 22 59 6f |forever.|get ("Yo|
|00000a30| 75 72 20 64 61 74 65 20 | 6f 66 20 62 69 72 74 68 |ur date |of birth|
|00000a40| 20 28 22 20 26 20 64 61 | 74 65 46 6f 72 6d 61 74 | (" & da|teFormat|
|00000a50| 28 29 20 26 20 22 29 3a | 22 29 0d 70 75 74 20 6c |() & "):|").put l|
|00000a60| 69 6e 65 20 6c 69 6e 65 | 4e 6f 20 6f 66 20 75 73 |ine line|No of us|
|00000a70| 65 72 44 61 74 65 20 69 | 6e 74 6f 20 74 65 6d 70 |erDate i|nto temp|
|00000a80| 44 61 74 65 0d 69 66 20 | 74 65 6d 70 44 61 74 65 |Date.if |tempDate|
|00000a90| 20 ad 20 22 22 20 74 68 | 65 6e 20 63 6f 6e 76 65 | . "" th|en conve|
|00000aa0| 72 74 20 74 65 6d 70 44 | 61 74 65 20 74 6f 20 73 |rt tempD|ate to s|
|00000ab0| 68 6f 72 74 20 64 61 74 | 65 0d 73 68 6f 77 44 69 |hort dat|e.showDi|
|00000ac0| 61 6c 6f 67 7a 20 32 2c | 20 28 32 31 30 30 2b 77 |alogz 2,| (2100+w|
|00000ad0| 68 69 63 68 44 65 70 74 | 68 28 29 29 2c 20 69 74 |hichDept|h()), it|
|00000ae0| 2c 20 22 22 2c 20 74 65 | 6d 70 44 61 74 65 0d 70 |, "", te|mpDate.p|
|00000af0| 75 74 20 6c 69 6e 65 20 | 31 20 6f 66 20 74 68 65 |ut line |1 of the|
|00000b00| 20 72 65 73 75 6c 74 20 | 69 6e 74 6f 20 74 65 6d | result |into tem|
|00000b10| 70 44 61 74 65 0d 69 66 | 20 74 65 6d 70 44 61 74 |pDate.if| tempDat|
|00000b20| 65 20 69 73 20 65 6d 70 | 74 79 20 6f 72 20 22 43 |e is emp|ty or "C|
|00000b30| 61 6e 63 65 6c 22 20 69 | 73 20 69 6e 20 74 65 6d |ancel" i|s in tem|
|00000b40| 70 44 61 74 65 20 74 68 | 65 6e 0d 63 6c 6f 73 65 |pDate th|en.close|
|00000b50| 44 6f 63 75 6d 65 6e 74 | 0d 65 78 69 74 20 74 6f |Document|.exit to|
|00000b60| 20 68 79 70 65 72 43 61 | 72 64 0d 65 6e 64 20 69 | hyperCa|rd.end i|
|00000b70| 66 0d 69 66 20 69 73 44 | 61 74 65 28 74 65 6d 70 |f.if isD|ate(temp|
|00000b80| 44 61 74 65 29 20 69 73 | 20 6e 6f 74 20 74 72 75 |Date) is| not tru|
|00000b90| 65 20 74 68 65 6e 0d 73 | 68 6f 77 45 72 72 6f 72 |e then.s|howError|
|00000ba0| 20 28 22 53 6f 72 72 79 | 2c 20 54 61 72 6f 74 57 | ("Sorry|, TarotW|
|00000bb0| 6f 72 6b 73 20 64 6f 65 | 73 6e d5 74 20 72 65 63 |orks doe|sn.t rec|
|00000bc0| 6f 67 6e 69 73 65 20 d2 | 22 20 26 20 c2 0d 74 65 |ognise .|" & ..te|
|00000bd0| 6d 70 44 61 74 65 20 26 | 20 22 d3 20 61 73 20 61 |mpDate &| ". as a|
|00000be0| 20 64 61 74 65 2e 22 29 | 0d 65 6c 73 65 0d 63 6f | date.")|.else.co|
|00000bf0| 6e 76 65 72 74 20 74 65 | 6d 70 44 61 74 65 20 74 |nvert te|mpDate t|
|00000c00| 6f 20 6c 6f 6e 67 20 64 | 61 74 65 0d 61 6e 73 77 |o long d|ate.answ|
|00000c10| 65 72 7a 20 2c 28 22 59 | 6f 75 72 20 64 61 74 65 |erz ,("Y|our date|
|00000c20| 20 6f 66 20 62 69 72 74 | 68 20 69 73 3a 22 20 26 | of birt|h is:" &|
|00000c30| 20 72 65 74 75 72 6e 20 | 26 20 74 65 6d 70 44 61 | return |& tempDa|
|00000c40| 74 65 29 0d 67 65 74 20 | 74 68 65 20 72 65 73 75 |te).get |the resu|
|00000c50| 6c 74 0d 69 66 20 69 74 | 20 3d 20 74 72 75 65 20 |lt.if it| = true |
|00000c60| 74 68 65 6e 20 65 78 69 | 74 20 72 65 70 65 61 74 |then exi|t repeat|
|00000c70| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 72 65 70 65 |.end if.|end repe|
|00000c80| 61 74 0d 63 6f 6e 76 65 | 72 74 20 74 65 6d 70 44 |at.conve|rt tempD|
|00000c90| 61 74 65 20 74 6f 20 64 | 61 74 65 49 74 65 6d 73 |ate to d|ateItems|
|00000ca0| 0d 69 66 20 69 74 65 6d | 20 31 20 6f 66 20 74 65 |.if item| 1 of te|
|00000cb0| 6d 70 44 61 74 65 20 69 | 73 20 6e 6f 74 20 61 20 |mpDate i|s not a |
|00000cc0| 6e 75 6d 62 65 72 20 74 | 68 65 6e 0d 73 68 6f 77 |number t|hen.show|
|00000cd0| 45 72 72 6f 72 20 2d 31 | 2c 22 4c 69 66 65 74 69 |Error -1|,"Lifeti|
|00000ce0| 6d 65 20 63 61 6e 6e 6f | 74 20 63 72 65 61 74 65 |me canno|t create|
|00000cf0| 20 61 20 72 65 61 64 69 | 6e 67 2c 20 62 65 63 61 | a readi|ng, beca|
|00000d00| 75 73 65 22 20 26 26 20 | c2 0d 22 74 68 65 20 64 |use" && |.."the d|
|00000d10| 61 74 65 20 66 6f 72 6d | 61 74 20 68 61 73 20 62 |ate form|at has b|
|00000d20| 65 65 6e 20 63 68 61 6e | 67 65 64 2e 20 54 72 79 |een chan|ged. Try|
|00000d30| 20 71 75 69 74 74 69 6e | 67 20 61 6e 64 20 72 65 | quittin|g and re|
|00000d40| 6f 70 65 6e 69 6e 67 20 | 54 61 72 6f 74 57 6f 72 |opening |TarotWor|
|00000d50| 6b 73 2e 22 0d 65 78 69 | 74 20 73 74 61 72 74 44 |ks.".exi|t startD|
|00000d60| 69 76 69 6e 61 74 69 6f | 6e 0d 65 6e 64 20 69 66 |ivinatio|n.end if|
|00000d70| 0d 61 64 64 52 65 73 63 | 75 65 20 74 65 6d 70 44 |.addResc|ue tempD|
|00000d80| 61 74 65 0d 65 6c 73 65 | 0d 63 6f 6e 76 65 72 74 |ate.else|.convert|
|00000d90| 20 74 68 65 44 61 74 61 | 20 74 6f 20 64 61 74 65 | theData| to date|
|00000da0| 49 74 65 6d 73 0d 70 75 | 74 20 74 68 65 44 61 74 |Items.pu|t theDat|
|00000db0| 61 20 69 6e 74 6f 20 74 | 65 6d 70 44 61 74 65 0d |a into t|empDate.|
|00000dc0| 65 6e 64 20 69 66 0d 77 | 61 69 74 43 75 72 73 6f |end if.w|aitCurso|
|00000dd0| 72 0d 70 75 74 20 74 65 | 6d 70 44 61 74 65 20 69 |r.put te|mpDate i|
|00000de0| 6e 74 6f 20 6c 69 6e 65 | 20 6c 69 6e 65 4e 6f 20 |nto line| lineNo |
|00000df0| 6f 66 20 75 73 65 72 44 | 61 74 65 0d 70 75 74 20 |of userD|ate.put |
|00000e00| 69 74 65 6d 20 31 20 6f | 66 20 74 65 6d 70 44 61 |item 1 o|f tempDa|
|00000e10| 74 65 20 69 6e 74 6f 20 | 74 65 6d 70 59 65 61 72 |te into |tempYear|
|00000e20| 0d 70 75 74 20 69 74 65 | 6d 20 32 20 6f 66 20 74 |.put ite|m 2 of t|
|00000e30| 65 6d 70 44 61 74 65 20 | 69 6e 74 6f 20 74 65 6d |empDate |into tem|
|00000e40| 70 4d 6f 6e 74 68 0d 70 | 75 74 20 69 74 65 6d 20 |pMonth.p|ut item |
|00000e50| 33 20 6f 66 20 74 65 6d | 70 44 61 74 65 20 69 6e |3 of tem|pDate in|
|00000e60| 74 6f 20 74 65 6d 70 44 | 61 79 0d 2d 2d 20 c6 20 |to tempD|ay.-- . |
|00000e70| 77 65 20 68 61 76 65 20 | 74 68 65 69 72 20 64 61 |we have |their da|
|00000e80| 74 65 20 6f 66 20 62 69 | 72 74 68 21 0d 77 61 69 |te of bi|rth!.wai|
|00000e90| 74 43 75 72 73 6f 72 0d | 6c 6f 63 6b 20 73 63 72 |tCursor.|lock scr|
|00000ea0| 65 65 6e 0d 62 6c 61 6e | 6b 43 61 72 64 73 20 22 |een.blan|kCards "|
|00000eb0| 44 69 6d 6d 65 64 22 0d | 70 75 74 20 70 65 72 73 |Dimmed".|put pers|
|00000ec0| 6f 6e 61 6c 69 74 79 28 | 74 65 6d 70 44 61 74 65 |onality(|tempDate|
|00000ed0| 29 20 69 6e 74 6f 20 69 | 0d 69 66 20 69 74 65 6d |) into i|.if item|
|00000ee0| 20 32 20 6f 66 20 69 20 | ad 20 22 3f 20 3f 22 20 | 2 of i |. "? ?" |
|00000ef0| 74 68 65 6e 0d 69 66 20 | 69 74 65 6d 20 33 20 6f |then.if |item 3 o|
|00000f00| 66 20 69 20 3d 20 22 3f | 20 3f 22 20 74 68 65 6e |f i = "?| ?" then|
|00000f10| 20 2d 2d 20 c6 20 32 20 | 63 64 73 0d 67 65 74 20 | -- . 2 |cds.get |
|00000f20| 28 69 74 65 6d 20 31 20 | 6f 66 20 69 29 0d 70 75 |(item 1 |of i).pu|
|00000f30| 74 20 69 74 65 6d 20 32 | 20 6f 66 20 69 20 69 6e |t item 2| of i in|
|00000f40| 74 6f 20 69 74 65 6d 20 | 31 20 6f 66 20 69 0d 70 |to item |1 of i.p|
|00000f50| 75 74 20 69 74 20 69 6e | 74 6f 20 69 74 65 6d 20 |ut it in|to item |
|00000f60| 32 20 6f 66 20 69 0d 68 | 69 64 65 43 61 72 64 20 |2 of i.h|ideCard |
|00000f70| 33 0d 65 6c 73 65 20 2d | 2d 20 c6 20 33 20 63 64 |3.else -|- . 3 cd|
|00000f80| 73 0d 67 65 74 20 28 69 | 74 65 6d 20 31 20 6f 66 |s.get (i|tem 1 of|
|00000f90| 20 69 29 0d 70 75 74 20 | 69 74 65 6d 20 33 20 6f | i).put |item 3 o|
|00000fa0| 66 20 69 20 69 6e 74 6f | 20 69 74 65 6d 20 31 20 |f i into| item 1 |
|00000fb0| 6f 66 20 69 0d 70 75 74 | 20 69 74 20 69 6e 74 6f |of i.put| it into|
|00000fc0| 20 69 74 65 6d 20 33 20 | 6f 66 20 69 0d 65 6e 64 | item 3 |of i.end|
|00000fd0| 20 69 66 0d 65 6c 73 65 | 0d 68 69 64 65 43 61 72 | if.else|.hideCar|
|00000fe0| 64 20 32 0d 68 69 64 65 | 43 61 72 64 20 33 0d 65 |d 2.hide|Card 3.e|
|00000ff0| 6e 64 20 69 66 0d 75 6e | 6c 6f 63 6b 20 73 63 72 |nd if.un|lock scr|
|00001000| 65 65 6e 0d 72 65 70 65 | 61 74 20 77 69 74 68 20 |een.repe|at with |
|00001010| 6a 20 3d 20 33 20 64 6f | 77 6e 20 74 6f 20 31 0d |j = 3 do|wn to 1.|
|00001020| 77 61 69 74 43 75 72 73 | 6f 72 0d 69 66 20 69 74 |waitCurs|or.if it|
|00001030| 65 6d 20 6a 20 6f 66 20 | 69 20 ad 20 22 3f 20 3f |em j of |i . "? ?|
|00001040| 22 20 74 68 65 6e 0d 73 | 65 74 43 61 72 64 20 6a |" then.s|etCard j|
|00001050| 0d 67 6f 20 74 6f 20 74 | 68 69 73 20 63 64 0d 77 |.go to t|his cd.w|
|00001060| 61 69 74 20 34 30 20 74 | 69 63 6b 73 0d 65 6e 64 |ait 40 t|icks.end|
|00001070| 20 69 66 0d 70 75 74 20 | 69 74 65 6d 20 6a 20 6f | if.put |item j o|
|00001080| 66 20 69 20 69 6e 74 6f | 20 69 74 65 6d 20 6a 20 |f i into| item j |
|00001090| 6f 66 20 6c 69 6e 65 20 | 6c 69 6e 65 4e 6f 20 6f |of line |lineNo o|
|000010a0| 66 20 74 68 65 52 65 61 | 64 69 6e 67 73 0d 69 66 |f theRea|dings.if|
|000010b0| 20 69 74 65 6d 20 6a 20 | 6f 66 20 69 20 ad 20 22 | item j |of i . "|
|000010c0| 3f 20 3f 22 20 74 68 65 | 6e 0d 73 65 74 43 61 72 |? ?" the|n.setCar|
|000010d0| 64 20 6a 0d 67 6f 20 74 | 6f 20 74 68 69 73 20 63 |d j.go t|o this c|
|000010e0| 64 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 72 65 70 |d.end if|.end rep|
|000010f0| 65 61 74 0d 70 75 74 20 | 74 65 6d 70 44 61 74 65 |eat.put |tempDate|
|00001100| 20 69 6e 74 6f 20 74 65 | 73 74 44 61 74 65 0d 63 | into te|stDate.c|
|00001110| 6f 6e 76 65 72 74 20 74 | 65 73 74 44 61 74 65 20 |onvert t|estDate |
|00001120| 74 6f 20 64 61 74 65 49 | 74 65 6d 73 0d 70 75 74 |to dateI|tems.put|
|00001130| 20 74 68 65 20 64 61 74 | 65 20 69 6e 74 6f 20 63 | the dat|e into c|
|00001140| 75 72 72 65 6e 74 44 61 | 74 65 0d 63 6f 6e 76 65 |urrentDa|te.conve|
|00001150| 72 74 20 63 75 72 72 65 | 6e 74 44 61 74 65 20 74 |rt curre|ntDate t|
|00001160| 6f 20 64 61 74 65 49 74 | 65 6d 73 0d 2d 2d 20 c6 |o dateIt|ems.-- .|
|00001170| 20 68 61 76 65 20 74 68 | 65 79 20 68 61 64 20 74 | have th|ey had t|
|00001180| 68 65 69 72 20 62 69 72 | 74 68 64 61 79 20 79 65 |heir bir|thday ye|
|00001190| 74 3f 0d 70 75 74 20 69 | 74 65 6d 20 32 20 6f 66 |t?.put i|tem 2 of|
|000011a0| 20 74 65 73 74 44 61 74 | 65 20 69 6e 74 6f 20 74 | testDat|e into t|
|000011b0| 65 73 74 4d 6f 6e 74 68 | 0d 70 75 74 20 69 74 65 |estMonth|.put ite|
|000011c0| 6d 20 32 20 6f 66 20 63 | 75 72 72 65 6e 74 44 61 |m 2 of c|urrentDa|
|000011d0| 74 65 20 69 6e 74 6f 20 | 63 75 72 72 65 6e 74 4d |te into |currentM|
|000011e0| 6f 6e 74 68 0d 67 65 74 | 20 76 61 6c 75 65 28 69 |onth.get| value(i|
|000011f0| 74 65 6d 20 31 20 6f 66 | 20 63 75 72 72 65 6e 74 |tem 1 of| current|
|00001200| 44 61 74 65 29 0d 69 66 | 20 63 75 72 72 65 6e 74 |Date).if| current|
|00001210| 4d 6f 6e 74 68 20 3c 20 | 74 65 73 74 4d 6f 6e 74 |Month < |testMont|
|00001220| 68 20 74 68 65 6e 0d 67 | 65 74 20 69 74 20 2d 20 |h then.g|et it - |
|00001230| 31 0d 65 6c 73 65 20 69 | 66 20 63 75 72 72 65 6e |1.else i|f curren|
|00001240| 74 4d 6f 6e 74 68 20 3d | 20 74 65 73 74 4d 6f 6e |tMonth =| testMon|
|00001250| 74 68 20 74 68 65 6e 0d | 70 75 74 20 69 74 65 6d |th then.|put item|
|00001260| 20 33 20 6f 66 20 74 65 | 73 74 44 61 74 65 20 69 | 3 of te|stDate i|
|00001270| 6e 74 6f 20 74 65 73 74 | 44 61 79 0d 70 75 74 20 |nto test|Day.put |
|00001280| 69 74 65 6d 20 33 20 6f | 66 20 63 75 72 72 65 6e |item 3 o|f curren|
|00001290| 74 44 61 74 65 20 69 6e | 74 6f 20 63 75 72 72 65 |tDate in|to curre|
|000012a0| 6e 74 44 61 79 0d 69 66 | 20 63 75 72 72 65 6e 74 |ntDay.if| current|
|000012b0| 44 61 79 20 3c 20 74 65 | 73 74 44 61 79 0d 74 68 |Day < te|stDay.th|
|000012c0| 65 6e 20 67 65 74 20 69 | 74 20 2d 20 31 0d 65 6e |en get i|t - 1.en|
|000012d0| 64 20 69 66 0d 70 75 74 | 20 69 74 20 69 6e 74 6f |d if.put| it into|
|000012e0| 20 63 75 72 72 65 6e 74 | 59 65 61 72 20 2d 2d 20 | current|Year -- |
|000012f0| c6 0d 70 75 74 20 63 75 | 72 72 65 6e 74 59 65 61 |..put cu|rrentYea|
|00001300| 72 20 69 6e 74 6f 20 6c | 69 6e 65 20 6c 69 6e 65 |r into l|ine line|
|00001310| 4e 6f 20 6f 66 20 74 68 | 65 43 75 72 72 65 6e 74 |No of th|eCurrent|
|00001320| 59 65 61 72 0d 70 75 74 | 20 63 75 72 72 65 6e 74 |Year.put| current|
|00001330| 59 65 61 72 20 69 6e 74 | 6f 20 6c 69 6e 65 20 6c |Year int|o line l|
|00001340| 69 6e 65 4e 6f 20 6f 66 | 20 76 69 65 77 69 6e 67 |ineNo of| viewing|
|00001350| 59 65 61 72 0d 77 61 69 | 74 43 75 72 73 6f 72 0d |Year.wai|tCursor.|
|00001360| 63 61 6c 63 75 6c 61 74 | 65 4c 69 66 65 74 69 6d |calculat|eLifetim|
|00001370| 65 20 63 75 72 72 65 6e | 74 59 65 61 72 2c 74 72 |e curren|tYear,tr|
|00001380| 75 65 2c 66 61 6c 73 65 | 0d 70 75 74 20 22 52 65 |ue,false|.put "Re|
|00001390| 61 64 22 20 69 6e 74 6f | 20 6c 69 6e 65 20 6c 69 |ad" into| line li|
|000013a0| 6e 65 4e 6f 20 6f 66 20 | 74 68 65 4d 6f 64 65 73 |neNo of |theModes|
|000013b0| 0d 70 75 74 20 66 61 6c | 73 65 20 69 6e 74 6f 20 |.put fal|se into |
|000013c0| 6c 69 6e 65 20 6c 69 6e | 65 4e 6f 20 6f 66 20 63 |line lin|eNo of c|
|000013d0| 61 72 64 73 53 61 76 65 | 64 0d 70 75 74 20 74 72 |ardsSave|d.put tr|
|000013e0| 75 65 20 69 6e 74 6f 20 | 6c 69 6e 65 20 6c 69 6e |ue into |line lin|
|000013f0| 65 4e 6f 20 6f 66 20 6d | 61 63 53 68 75 66 66 6c |eNo of m|acShuffl|
|00001400| 65 0d 75 70 64 61 74 65 | 4d 65 6e 75 73 0d 70 75 |e.update|Menus.pu|
|00001410| 74 20 65 6d 70 74 79 20 | 69 6e 74 6f 20 74 65 6d |t empty |into tem|
|00001420| 70 53 74 61 63 6b 73 0d | 65 6e 64 20 73 74 61 72 |pStacks.|end star|
|00001430| 74 44 69 76 69 6e 61 74 | 69 6f 6e 0d 0d 66 75 6e |tDivinat|ion..fun|
|00001440| 63 74 69 6f 6e 20 64 61 | 74 65 46 6f 72 6d 61 74 |ction da|teFormat|
|00001450| 0d 70 75 74 20 22 31 2f | 32 2f 39 33 22 20 69 6e |.put "1/|2/93" in|
|00001460| 74 6f 20 74 0d 63 6f 6e | 76 65 72 74 20 74 20 74 |to t.con|vert t t|
|00001470| 6f 20 61 62 62 72 65 76 | 20 64 61 74 65 0d 69 66 |o abbrev| date.if|
|00001480| 20 22 46 65 62 22 20 69 | 73 20 69 6e 20 74 20 74 | "Feb" i|s in t t|
|00001490| 68 65 6e 0d 67 65 74 20 | 22 44 44 2f 4d 4d 2f 59 |hen.get |"DD/MM/Y|
|000014a0| 59 22 0d 65 6c 73 65 20 | 69 66 20 22 4a 61 6e 22 |Y".else |if "Jan"|
|000014b0| 20 69 73 20 69 6e 20 74 | 20 74 68 65 6e 0d 67 65 | is in t| then.ge|
|000014c0| 74 20 22 4d 4d 2f 44 44 | 2f 59 59 22 0d 65 6c 73 |t "MM/DD|/YY".els|
|000014d0| 65 20 67 65 74 20 22 3f | 3f 2f 3f 3f 2f 3f 3f 22 |e get "?|?/??/??"|
|000014e0| 0d 72 65 74 75 72 6e 20 | 69 74 0d 65 6e 64 20 64 |.return |it.end d|
|000014f0| 61 74 65 46 6f 72 6d 61 | 74 0d 0d 6f 6e 20 72 65 |ateForma|t..on re|
|00001500| 43 61 6c 63 75 6c 61 74 | 65 0d 67 6c 6f 62 61 6c |Calculat|e.global|
|00001510| 20 75 73 65 72 44 61 74 | 65 2c 6c 69 6e 65 4e 6f | userDat|e,lineNo|
|00001520| 2c 74 68 65 43 75 72 72 | 65 6e 74 59 65 61 72 2c |,theCurr|entYear,|
|00001530| 76 69 65 77 69 6e 67 59 | 65 61 72 2c 6c 61 79 6f |viewingY|ear,layo|
|00001540| 75 74 46 6f 6c 64 65 72 | 2c 20 c2 0d 63 79 63 6c |utFolder|, ..cycl|
|00001550| 65 53 74 61 72 74 0d 77 | 61 69 74 43 75 72 73 6f |eStart.w|aitCurso|
|00001560| 72 0d 70 75 74 20 6c 69 | 6e 65 20 6c 69 6e 65 4e |r.put li|ne lineN|
|00001570| 6f 20 6f 66 20 75 73 65 | 72 44 61 74 65 20 69 6e |o of use|rDate in|
|00001580| 74 6f 20 74 65 6d 70 44 | 61 74 65 0d 70 75 74 20 |to tempD|ate.put |
|00001590| 69 74 65 6d 20 31 20 6f | 66 20 74 65 6d 70 44 61 |item 1 o|f tempDa|
|000015a0| 74 65 20 69 6e 74 6f 20 | 62 69 72 74 68 59 65 61 |te into |birthYea|
|000015b0| 72 0d 70 75 74 20 74 68 | 65 20 64 61 74 65 20 69 |r.put th|e date i|
|000015c0| 6e 74 6f 20 63 75 72 72 | 65 6e 74 44 61 74 65 0d |nto curr|entDate.|
|000015d0| 63 6f 6e 76 65 72 74 20 | 63 75 72 72 65 6e 74 44 |convert |currentD|
|000015e0| 61 74 65 20 74 6f 20 64 | 61 74 65 49 74 65 6d 73 |ate to d|ateItems|
|000015f0| 0d 69 66 20 69 74 65 6d | 20 31 20 6f 66 20 63 75 |.if item| 1 of cu|
|00001600| 72 72 65 6e 74 44 61 74 | 65 20 69 73 20 6e 6f 74 |rrentDat|e is not|
|00001610| 20 61 20 6e 75 6d 62 65 | 72 20 74 68 65 6e 0d 73 | a numbe|r then.s|
|00001620| 68 6f 77 45 72 72 6f 72 | 20 2d 31 2c 22 4c 69 66 |howError| -1,"Lif|
|00001630| 65 74 69 6d 65 20 63 61 | 6e 6e 6f 74 20 72 65 63 |etime ca|nnot rec|
|00001640| 61 6c 63 75 6c 61 74 65 | 20 74 68 69 73 20 72 65 |alculate| this re|
|00001650| 61 64 69 6e 67 2c 20 62 | 65 63 61 75 73 65 22 20 |ading, b|ecause" |
|00001660| 26 26 20 c2 0d 22 74 68 | 65 20 64 61 74 65 20 66 |&& .."th|e date f|
|00001670| 6f 72 6d 61 74 20 68 61 | 73 20 62 65 65 6e 20 63 |ormat ha|s been c|
|00001680| 68 61 6e 67 65 64 2e 20 | 54 72 79 20 71 75 69 74 |hanged. |Try quit|
|00001690| 74 69 6e 67 20 61 6e 64 | 20 72 65 6f 70 65 6e 69 |ting and| reopeni|
|000016a0| 6e 67 20 54 61 72 6f 74 | 57 6f 72 6b 73 2e 22 0d |ng Tarot|Works.".|
|000016b0| 65 78 69 74 20 72 65 43 | 61 6c 63 75 6c 61 74 65 |exit reC|alculate|
|000016c0| 0d 65 6e 64 20 69 66 0d | 70 75 74 20 69 74 65 6d |.end if.|put item|
|000016d0| 20 31 20 6f 66 20 63 75 | 72 72 65 6e 74 44 61 74 | 1 of cu|rrentDat|
|000016e0| 65 20 69 6e 74 6f 20 6e | 6f 77 59 65 61 72 0d 70 |e into n|owYear.p|
|000016f0| 75 74 20 6c 69 6e 65 20 | 6c 69 6e 65 4e 6f 20 6f |ut line |lineNo o|
|00001700| 66 20 76 69 65 77 69 6e | 67 59 65 61 72 20 69 6e |f viewin|gYear in|
|00001710| 74 6f 20 79 65 61 72 56 | 69 65 77 65 64 0d 70 75 |to yearV|iewed.pu|
|00001720| 74 20 6c 69 6e 65 20 6c | 69 6e 65 4e 6f 20 6f 66 |t line l|ineNo of|
|00001730| 20 74 68 65 43 75 72 72 | 65 6e 74 59 65 61 72 20 | theCurr|entYear |
|00001740| 69 6e 74 6f 20 74 68 65 | 43 75 72 72 59 65 61 72 |into the|CurrYear|
|00001750| 0d 70 75 74 20 74 65 6d | 70 44 61 74 65 20 69 6e |.put tem|pDate in|
|00001760| 74 6f 20 74 65 73 74 44 | 61 74 65 0d 70 75 74 20 |to testD|ate.put |
|00001770| 69 74 65 6d 20 31 20 6f | 66 20 63 75 72 72 65 6e |item 1 o|f curren|
|00001780| 74 44 61 74 65 20 69 6e | 74 6f 20 69 74 65 6d 20 |tDate in|to item |
|00001790| 31 20 6f 66 20 74 65 73 | 74 44 61 74 65 20 2d 2d |1 of tes|tDate --|
|000017a0| 20 72 65 70 6c 61 63 65 | 20 79 65 61 72 73 0d 69 | replace| years.i|
|000017b0| 66 20 74 65 73 74 44 61 | 74 65 20 3e 20 63 75 72 |f testDa|te > cur|
|000017c0| 72 65 6e 74 44 61 74 65 | 20 74 68 65 6e 20 2d 2d |rentDate| then --|
|000017d0| 20 c6 20 68 61 76 65 20 | 74 68 65 79 20 68 61 64 | . have |they had|
|000017e0| 20 74 68 65 69 72 20 62 | 69 72 74 68 64 61 79 20 | their b|irthday |
|000017f0| 79 65 74 3f 0d 70 75 74 | 20 28 69 74 65 6d 20 31 |yet?.put| (item 1|
|00001800| 20 6f 66 20 63 75 72 72 | 65 6e 74 44 61 74 65 29 | of curr|entDate)|
|00001810| 20 2d 20 31 20 69 6e 74 | 6f 20 63 75 72 72 65 6e | - 1 int|o curren|
|00001820| 74 59 65 61 72 20 2d 2d | 20 c6 20 6e 6f 0d 65 6c |tYear --| . no.el|
|00001830| 73 65 20 70 75 74 20 69 | 74 65 6d 20 31 20 6f 66 |se put i|tem 1 of|
|00001840| 20 63 75 72 72 65 6e 74 | 44 61 74 65 20 69 6e 74 | current|Date int|
|00001850| 6f 20 63 75 72 72 65 6e | 74 59 65 61 72 20 2d 2d |o curren|tYear --|
|00001860| 20 20 20 20 c6 20 79 65 | 73 0d 77 61 69 74 43 75 | . ye|s.waitCu|
|00001870| 72 73 6f 72 0d 2d 2d 20 | c6 20 77 6f 72 6b 20 6f |rsor.-- |. work o|
|00001880| 75 74 20 68 6f 77 20 6f | 6c 64 20 74 68 65 79 20 |ut how o|ld they |
|00001890| 61 72 65 0d 70 75 74 20 | 6e 6f 77 59 65 61 72 20 |are.put |nowYear |
|000018a0| 2d 20 62 69 72 74 68 59 | 65 61 72 20 69 6e 74 6f |- birthY|ear into|
|000018b0| 20 74 68 65 69 72 41 67 | 65 0d 69 66 20 74 68 65 | theirAg|e.if the|
|000018c0| 69 72 41 67 65 20 3c 20 | 31 30 20 6f 72 20 28 79 |irAge < |10 or (y|
|000018d0| 65 61 72 56 69 65 77 65 | 64 20 2d 20 62 69 72 74 |earViewe|d - birt|
|000018e0| 68 59 65 61 72 29 20 3c | 20 31 30 20 74 68 65 6e |hYear) <| 10 then|
|000018f0| 0d 70 75 74 20 62 69 72 | 74 68 59 65 61 72 20 69 |.put bir|thYear i|
|00001900| 6e 74 6f 20 73 74 61 72 | 74 59 65 61 72 0d 70 75 |nto star|tYear.pu|
|00001910| 74 20 62 69 72 74 68 59 | 65 61 72 20 2b 20 32 30 |t birthY|ear + 20|
|00001920| 20 69 6e 74 6f 20 65 6e | 64 59 65 61 72 0d 65 6c | into en|dYear.el|
|00001930| 73 65 0d 70 75 74 20 79 | 65 61 72 56 69 65 77 65 |se.put y|earViewe|
|00001940| 64 20 2d 20 31 30 20 69 | 6e 74 6f 20 73 74 61 72 |d - 10 i|nto star|
|00001950| 74 59 65 61 72 0d 70 75 | 74 20 79 65 61 72 56 69 |tYear.pu|t yearVi|
|00001960| 65 77 65 64 20 2b 20 31 | 30 20 69 6e 74 6f 20 65 |ewed + 1|0 into e|
|00001970| 6e 64 59 65 61 72 0d 65 | 6e 64 20 69 66 0d 70 75 |ndYear.e|nd if.pu|
|00001980| 74 20 65 6d 70 74 79 20 | 69 6e 74 6f 20 79 65 61 |t empty |into yea|
|00001990| 72 73 4c 69 73 74 0d 72 | 65 70 65 61 74 20 77 69 |rsList.r|epeat wi|
|000019a0| 74 68 20 69 20 3d 20 73 | 74 61 72 74 59 65 61 72 |th i = s|tartYear|
|000019b0| 20 74 6f 20 65 6e 64 59 | 65 61 72 0d 70 75 74 20 | to endY|ear.put |
|000019c0| 69 20 69 6e 74 6f 20 6a | 0d 69 66 20 69 20 3d 20 |i into j|.if i = |
|000019d0| 28 74 68 65 43 75 72 72 | 59 65 61 72 20 2d 20 31 |(theCurr|Year - 1|
|000019e0| 29 20 74 68 65 6e 0d 70 | 75 74 20 22 28 2d 2c 22 |) then.p|ut "(-,"|
|000019f0| 20 61 66 74 65 72 20 79 | 65 61 72 73 4c 69 73 74 | after y|earsList|
|00001a00| 0d 69 66 20 69 20 3d 20 | 79 65 61 72 56 69 65 77 |.if i = |yearView|
|00001a10| 65 64 20 74 68 65 6e 20 | 70 75 74 20 22 28 3c 55 |ed then |put "(<U|
|00001a20| 22 20 61 66 74 65 72 20 | 79 65 61 72 73 4c 69 73 |" after |yearsLis|
|00001a30| 74 0d 70 75 74 20 22 4c | 61 73 74 20 59 65 61 72 |t.put "L|ast Year|
|00001a40| 2c 22 20 61 66 74 65 72 | 20 79 65 61 72 73 4c 69 |," after| yearsLi|
|00001a50| 73 74 0d 65 6c 73 65 0d | 69 66 20 69 20 3d 20 79 |st.else.|if i = y|
|00001a60| 65 61 72 56 69 65 77 65 | 64 20 74 68 65 6e 20 70 |earViewe|d then p|
|00001a70| 75 74 20 22 28 3c 55 22 | 20 61 66 74 65 72 20 79 |ut "(<U"| after y|
|00001a80| 65 61 72 73 4c 69 73 74 | 0d 69 66 20 69 20 3d 20 |earsList|.if i = |
|00001a90| 74 68 65 43 75 72 72 59 | 65 61 72 20 74 68 65 6e |theCurrY|ear then|
|00001aa0| 0d 70 75 74 20 22 43 75 | 72 72 65 6e 74 20 59 65 |.put "Cu|rrent Ye|
|00001ab0| 61 72 2c 22 20 61 66 74 | 65 72 20 79 65 61 72 73 |ar," aft|er years|
|00001ac0| 4c 69 73 74 0d 65 6c 73 | 65 0d 69 66 20 69 20 3d |List.els|e.if i =|
|00001ad0| 20 28 74 68 65 43 75 72 | 72 59 65 61 72 20 2b 20 | (theCur|rYear + |
|00001ae0| 31 29 0d 74 68 65 6e 20 | 70 75 74 20 22 4e 65 78 |1).then |put "Nex|
|00001af0| 74 20 59 65 61 72 2c 28 | 2d 2c 22 20 61 66 74 65 |t Year,(|-," afte|
|00001b00| 72 20 79 65 61 72 73 4c | 69 73 74 0d 65 6c 73 65 |r yearsL|ist.else|
|00001b10| 0d 70 75 74 20 6a 20 26 | 20 22 20 20 5b 22 20 26 |.put j &| " [" &|
|00001b20| 20 28 69 20 2d 20 62 69 | 72 74 68 59 65 61 72 29 | (i - bi|rthYear)|
|00001b30| 20 26 20 22 5d 2c 22 20 | 61 66 74 65 72 20 79 65 | & "]," |after ye|
|00001b40| 61 72 73 4c 69 73 74 0d | 65 6e 64 20 69 66 0d 65 |arsList.|end if.e|
|00001b50| 6e 64 20 69 66 0d 65 6e | 64 20 69 66 0d 65 6e 64 |nd if.en|d if.end|
|00001b60| 20 72 65 70 65 61 74 0d | 64 65 6c 65 74 65 20 74 | repeat.|delete t|
|00001b70| 68 65 20 6c 61 73 74 20 | 69 74 65 6d 20 6f 66 20 |he last |item of |
|00001b80| 79 65 61 72 73 4c 69 73 | 74 0d 70 75 74 20 6e 69 |yearsLis|t.put ni|
|00001b90| 28 63 68 61 72 20 31 20 | 74 6f 20 c2 0d 28 6f 66 |(char 1 |to ..(of|
|00001ba0| 66 73 65 74 28 22 28 3c | 55 22 2c 79 65 61 72 73 |fset("(<|U",years|
|00001bb0| 4c 69 73 74 29 29 20 6f | 66 20 79 65 61 72 73 4c |List)) o|f yearsL|
|00001bc0| 69 73 74 29 20 69 6e 74 | 6f 20 64 65 66 61 75 6c |ist) int|o defaul|
|00001bd0| 74 59 65 61 72 0d 73 68 | 6f 77 44 69 61 6c 6f 67 |tYear.sh|owDialog|
|00001be0| 7a 20 34 2c 28 32 31 31 | 30 2b 77 68 69 63 68 44 |z 4,(211|0+whichD|
|00001bf0| 65 70 74 68 28 29 29 2c | 22 22 2c 22 22 2c 22 22 |epth()),|"","",""|
|00001c00| 2c 79 65 61 72 73 4c 69 | 73 74 2c 64 65 66 61 75 |,yearsLi|st,defau|
|00001c10| 6c 74 59 65 61 72 0d 70 | 75 74 20 74 68 65 20 72 |ltYear.p|ut the r|
|00001c20| 65 73 75 6c 74 20 69 6e | 74 6f 20 72 0d 69 66 20 |esult in|to r.if |
|00001c30| 72 20 3d 20 22 22 20 74 | 68 65 6e 20 65 78 69 74 |r = "" t|hen exit|
|00001c40| 20 74 6f 20 68 79 70 65 | 72 43 61 72 64 0d 70 75 | to hype|rCard.pu|
|00001c50| 74 20 77 6f 72 64 20 31 | 20 6f 66 20 69 74 65 6d |t word 1| of item|
|00001c60| 20 28 6c 69 6e 65 20 31 | 20 6f 66 20 72 29 20 6f | (line 1| of r) o|
|00001c70| 66 20 79 65 61 72 73 4c | 69 73 74 20 69 6e 74 6f |f yearsL|ist into|
|00001c80| 20 74 65 6d 70 59 65 61 | 72 0d 69 66 20 22 4c 61 | tempYea|r.if "La|
|00001c90| 73 74 22 20 69 73 20 69 | 6e 20 74 65 6d 70 59 65 |st" is i|n tempYe|
|00001ca0| 61 72 20 74 68 65 6e 20 | 70 75 74 20 28 74 68 65 |ar then |put (the|
|00001cb0| 43 75 72 72 59 65 61 72 | 20 2d 20 31 29 20 69 6e |CurrYear| - 1) in|
|00001cc0| 74 6f 20 74 65 6d 70 59 | 65 61 72 0d 69 66 20 22 |to tempY|ear.if "|
|00001cd0| 43 75 72 72 65 6e 74 22 | 20 69 73 20 69 6e 20 74 |Current"| is in t|
|00001ce0| 65 6d 70 59 65 61 72 20 | 74 68 65 6e 20 70 75 74 |empYear |then put|
|00001cf0| 20 74 68 65 43 75 72 72 | 59 65 61 72 20 69 6e 74 | theCurr|Year int|
|00001d00| 6f 20 74 65 6d 70 59 65 | 61 72 0d 69 66 20 22 4e |o tempYe|ar.if "N|
|00001d10| 65 78 74 22 20 69 73 20 | 69 6e 20 74 65 6d 70 59 |ext" is |in tempY|
|00001d20| 65 61 72 20 74 68 65 6e | 20 70 75 74 20 28 74 68 |ear then| put (th|
|00001d30| 65 43 75 72 72 59 65 61 | 72 20 2b 20 31 29 20 69 |eCurrYea|r + 1) i|
|00001d40| 6e 74 6f 20 74 65 6d 70 | 59 65 61 72 0d 70 75 74 |nto temp|Year.put|
|00001d50| 20 74 65 6d 70 59 65 61 | 72 20 69 6e 74 6f 20 6c | tempYea|r into l|
|00001d60| 69 6e 65 20 6c 69 6e 65 | 4e 6f 20 6f 66 20 76 69 |ine line|No of vi|
|00001d70| 65 77 69 6e 67 59 65 61 | 72 0d 70 75 74 20 6c 69 |ewingYea|r.put li|
|00001d80| 6e 65 20 6c 69 6e 65 4e | 6f 20 6f 66 20 63 79 63 |ne lineN|o of cyc|
|00001d90| 6c 65 53 74 61 72 74 20 | 69 6e 74 6f 20 6f 6c 64 |leStart |into old|
|00001da0| 53 74 61 72 74 0d 63 61 | 6c 63 75 6c 61 74 65 4c |Start.ca|lculateL|
|00001db0| 69 66 65 74 69 6d 65 20 | 74 65 6d 70 59 65 61 72 |ifetime |tempYear|
|00001dc0| 0d 65 6e 64 20 72 65 43 | 61 6c 63 75 6c 61 74 65 |.end reC|alculate|
|00001dd0| 0d 0d 6f 6e 20 63 61 6c | 63 75 6c 61 74 65 4c 69 |..on cal|culateLi|
|00001de0| 66 65 74 69 6d 65 20 74 | 68 65 59 65 61 72 2c 73 |fetime t|heYear,s|
|00001df0| 75 70 70 72 65 73 73 52 | 65 64 72 61 77 2c 61 75 |uppressR|edraw,au|
|00001e00| 74 6f 53 65 6c 65 63 74 | 0d 67 6c 6f 62 61 6c 20 |toSelect|.global |
|00001e10| 75 73 65 72 44 61 74 65 | 2c 6c 69 6e 65 4e 6f 2c |userDate|,lineNo,|
|00001e20| 74 68 65 52 65 61 64 69 | 6e 67 73 2c 63 79 63 6c |theReadi|ngs,cycl|
|00001e30| 65 53 74 61 72 74 2c 63 | 79 63 6c 65 45 6e 64 2c |eStart,c|ycleEnd,|
|00001e40| 64 61 72 6b 43 61 72 64 | 2c 20 c2 0d 74 68 65 43 |darkCard|, ..theC|
|00001e50| 75 72 72 65 6e 74 59 65 | 61 72 2c 74 6f 6c 50 72 |urrentYe|ar,tolPr|
|00001e60| 65 66 2c 63 61 72 64 73 | 53 61 76 65 64 0d 0d 69 |ef,cards|Saved..i|
|00001e70| 66 20 73 75 70 70 72 65 | 73 73 52 65 64 72 61 77 |f suppre|ssRedraw|
|00001e80| 20 69 73 20 6e 6f 74 20 | 74 72 75 65 20 74 68 65 | is not |true the|
|00001e90| 6e 0d 77 61 69 74 43 75 | 72 73 6f 72 0d 69 66 20 |n.waitCu|rsor.if |
|00001ea0| 28 28 74 68 65 59 65 61 | 72 20 b3 20 6c 69 6e 65 |((theYea|r . line|
|00001eb0| 20 6c 69 6e 65 4e 6f 20 | 6f 66 20 63 79 63 6c 65 | lineNo |of cycle|
|00001ec0| 53 74 61 72 74 29 20 61 | 6e 64 20 c2 0d 28 74 68 |Start) a|nd ..(th|
|00001ed0| 65 59 65 61 72 20 b2 20 | 6c 69 6e 65 20 6c 69 6e |eYear . |line lin|
|00001ee0| 65 4e 6f 20 6f 66 20 63 | 79 63 6c 65 45 6e 64 29 |eNo of c|ycleEnd)|
|00001ef0| 29 20 74 68 65 6e 0d 68 | 61 6e 64 6c 65 4d 6f 75 |) then.h|andleMou|
|00001f00| 73 65 20 28 35 20 2b 20 | 28 74 68 65 59 65 61 72 |se (5 + |(theYear|
|00001f10| 20 2d 20 28 6c 69 6e 65 | 20 6c 69 6e 65 4e 6f 20 | - (line| lineNo |
|00001f20| 6f 66 20 63 79 63 6c 65 | 53 74 61 72 74 29 29 29 |of cycle|Start)))|
|00001f30| 0d 65 78 69 74 20 63 61 | 6c 63 75 6c 61 74 65 4c |.exit ca|lculateL|
|00001f40| 69 66 65 74 69 6d 65 0d | 65 6e 64 20 69 66 0d 70 |ifetime.|end if.p|
|00001f50| 75 74 20 66 61 6c 73 65 | 20 69 6e 74 6f 20 6c 69 |ut false| into li|
|00001f60| 6e 65 20 6c 69 6e 65 4e | 6f 20 6f 66 20 63 61 72 |ne lineN|o of car|
|00001f70| 64 73 53 61 76 65 64 0d | 6c 6f 63 6b 20 73 63 72 |dsSaved.|lock scr|
|00001f80| 65 65 6e 0d 62 6c 61 6e | 6b 43 61 72 64 73 20 44 |een.blan|kCards D|
|00001f90| 69 6d 6d 65 64 0d 77 61 | 69 74 43 75 72 73 6f 72 |immed.wa|itCursor|
|00001fa0| 0d 73 65 74 82 61 72 64 | 20 31 0d 69 66 20 69 74 |.set.ard| 1.if it|
|00001fb0| 65 6d 20 32 20 6f 66 20 | 6c 69 6e 65 20 6c 69 6e |em 2 of |line lin|
|00001fc0| 65 4e 6f 20 6f 66 20 74 | 68 65 52 65 61 64 69 6e |eNo of t|heReadin|
|00001fd0| 67 73 20 ad 20 22 3f 20 | 3f 22 20 74 68 65 6e 20 |gs . "? |?" then |
|00001fe0| 73 65 74 43 61 72 64 20 | 32 0d 69 66 20 69 74 65 |setCard |2.if ite|
|00001ff0| 6d 20 33 20 6f 66 20 6c | 69 6e 65 20 6c 69 6e 65 |m 3 of l|ine line|
|00002000| 4e 6f 20 6f 66 20 74 68 | 65 52 65 61 64 69 6e 67 |No of th|eReading|
|00002010| 73 20 ad 20 22 3f 20 3f | 22 20 74 68 65 6e 20 73 |s . "? ?|" then s|
|00002020| 65 74 43 61 72 64 20 33 | 0d 75 6e 6c 6f 63 6b 20 |etCard 3|.unlock |
|00002030| 73 63 72 65 65 6e 0d 77 | 61 69 74 43 75 72 73 6f |screen.w|aitCurso|
|00002040| 72 0d 77 61 69 74 20 34 | 30 20 74 69 63 6b 73 0d |r.wait 4|0 ticks.|
|00002050| 65 6e 64 20 69 66 0d 62 | 6c 61 6e 6b 43 61 72 64 |end if.b|lankCard|
|00002060| 73 20 22 22 2c 34 0d 67 | 6f 20 74 6f 20 74 68 69 |s "",4.g|o to thi|
|00002070| 73 20 63 64 0d 77 61 69 | 74 43 75 72 73 6f 72 0d |s cd.wai|tCursor.|
|00002080| 70 75 74 20 77 68 69 63 | 68 43 79 63 6c 65 28 6c |put whic|hCycle(l|
|00002090| 69 6e 65 20 6c 69 6e 65 | 4e 6f 20 6f 66 20 75 73 |ine line|No of us|
|000020a0| 65 72 44 61 74 65 2c 74 | 68 65 59 65 61 72 29 20 |erDate,t|heYear) |
|000020b0| 69 6e 74 6f 20 69 0d 77 | 61 69 74 43 75 72 73 6f |into i.w|aitCurso|
|000020c0| 72 0d 70 75 74 20 69 74 | 65 6d 20 31 20 6f 66 20 |r.put it|em 1 of |
|000020d0| 6c 69 6e 65 20 32 20 6f | 66 20 69 20 69 6e 74 6f |line 2 o|f i into|
|000020e0| 20 63 75 72 72 65 6e 74 | 43 79 63 6c 65 0d 70 75 | current|Cycle.pu|
|000020f0| 74 20 69 74 65 6d 20 31 | 20 6f 66 20 6c 69 6e 65 |t item 1| of line|
|00002100| 20 31 20 6f 66 20 69 20 | 69 6e 74 6f 20 63 73 0d | 1 of i |into cs.|
|00002110| 70 75 74 20 63 73 20 69 | 6e 74 6f 20 6c 69 6e 65 |put cs i|nto line|
|00002120| 20 6c 69 6e 65 4e 6f 20 | 6f 66 20 63 79 63 6c 65 | lineNo |of cycle|
|00002130| 53 74 61 72 74 0d 70 75 | 74 20 63 73 20 2d 20 31 |Start.pu|t cs - 1|
|00002140| 20 69 6e 74 6f 20 66 69 | 72 73 74 59 65 61 72 0d | into fi|rstYear.|
|00002150| 70 75 74 20 28 74 68 65 | 59 65 61 72 20 2d 20 63 |put (the|Year - c|
|00002160| 73 29 20 69 6e 74 6f 20 | 77 68 69 63 68 43 61 72 |s) into |whichCar|
|00002170| 64 0d 70 75 74 20 69 74 | 65 6d 20 32 20 6f 66 20 |d.put it|em 2 of |
|00002180| 6c 69 6e 65 20 31 20 6f | 66 20 69 20 69 6e 74 6f |line 1 o|f i into|
|00002190| 20 63 65 0d 70 75 74 20 | 63 65 20 69 6e 74 6f 20 | ce.put |ce into |
|000021a0| 6c 69 6e 65 20 6c 69 6e | 65 4e 6f 20 6f 66 20 63 |line lin|eNo of c|
|000021b0| 79 63 6c 65 45 6e 64 0d | 70 75 74 20 63 65 20 2d |ycleEnd.|put ce -|
|000021c0| 20 63 73 20 69 6e 74 6f | 20 63 79 63 6c 65 4c 65 | cs into| cycleLe|
|000021d0| 6e 67 74 68 0d 70 75 74 | 20 6c 69 6e 65 20 32 20 |ngth.put| line 2 |
|000021e0| 6f 66 20 69 20 69 6e 74 | 6f 20 63 79 63 6c 65 43 |of i int|o cycleC|
|000021f0| 61 72 64 73 0d 70 75 74 | 20 6c 69 6e 65 20 6c 69 |ards.put| line li|
|00002200| 6e 65 4e 6f 20 6f 66 20 | 74 68 65 43 75 72 72 65 |neNo of |theCurre|
|00002210| 6e 74 59 65 61 72 20 69 | 6e 74 6f 20 63 79 0d 6c |ntYear i|nto cy.l|
|00002220| 6f 63 6b 20 73 63 72 65 | 65 6e 0d 77 61 69 74 43 |ock scre|en.waitC|
|00002230| 75 72 73 6f 72 0d 72 65 | 70 65 61 74 20 77 69 74 |ursor.re|peat wit|
|00002240| 68 20 6a 20 3d 20 31 20 | 74 6f 20 28 63 79 63 6c |h j = 1 |to (cycl|
|00002250| 65 4c 65 6e 67 74 68 2b | 31 29 0d 70 75 74 20 28 |eLength+|1).put (|
|00002260| 66 69 72 73 74 59 65 61 | 72 20 2b 20 6a 29 20 69 |firstYea|r + j) i|
|00002270| 6e 74 6f 20 66 6c 64 20 | 6a 0d 62 6c 61 6e 6b 43 |nto fld |j.blankC|
|00002280| 61 72 64 73 20 22 22 2c | 28 6a 2b 34 29 2c 34 0d |ards "",|(j+4),4.|
|00002290| 65 6e 64 20 72 65 70 65 | 61 74 0d 69 66 20 28 28 |end repe|at.if ((|
|000022a0| 63 79 20 b3 20 63 73 29 | 20 61 6e 64 20 28 63 79 |cy . cs)| and (cy|
|000022b0| 20 b2 20 63 65 29 29 20 | 74 68 65 6e 0d 70 75 74 | . ce)) |then.put|
|000022c0| 20 28 28 63 79 2d 63 73 | 29 2b 31 29 20 69 6e 74 | ((cy-cs|)+1) int|
|000022d0| 6f 20 77 68 69 63 68 46 | 69 65 6c 64 0d 73 65 74 |o whichF|ield.set|
|000022e0| 20 74 68 65 20 74 65 78 | 74 53 74 79 6c 65 20 6f | the tex|tStyle o|
|000022f0| 66 20 66 6c 64 20 77 68 | 69 63 68 46 69 65 6c 64 |f fld wh|ichField|
|00002300| 20 74 6f 20 22 62 6f 6c | 64 22 0d 65 6e 64 20 69 | to "bol|d".end i|
|00002310| 66 0d 77 61 69 74 43 75 | 72 73 6f 72 0d 70 75 74 |f.waitCu|rsor.put|
|00002320| 20 28 69 74 65 6d 20 31 | 20 74 6f 20 33 20 6f 66 | (item 1| to 3 of|
|00002330| 20 6c 69 6e 65 20 6c 69 | 6e 65 4e 6f 20 6f 66 20 | line li|neNo of |
|00002340| 74 68 65 52 65 61 64 69 | 6e 67 73 29 20 26 20 22 |theReadi|ngs) & "|
|00002350| 2c 22 20 26 20 63 79 63 | 6c 65 43 61 72 64 73 20 |," & cyc|leCards |
|00002360| c2 0d 69 6e 74 6f 20 6c | 69 6e 65 20 6c 69 6e 65 |..into l|ine line|
|00002370| 4e 6f 20 6f 66 20 74 68 | 65 52 65 61 64 69 6e 67 |No of th|eReading|
|00002380| 73 0d 73 65 74 43 61 72 | 64 20 34 0d 69 66 20 74 |s.setCar|d 4.if t|
|00002390| 6f 6c 50 72 65 66 20 74 | 68 65 6e 20 63 61 6c 63 |olPref t|hen calc|
|000023a0| 75 6c 61 74 65 54 72 65 | 65 0d 75 6e 6c 6f 63 6b |ulateTre|e.unlock|
|000023b0| 20 73 63 72 65 65 6e 0d | 77 61 69 74 43 75 72 73 | screen.|waitCurs|
|000023c0| 6f 72 0d 77 61 69 74 20 | 34 30 20 74 69 63 6b 73 |or.wait |40 ticks|
|000023d0| 0d 72 65 70 65 61 74 20 | 77 69 74 68 20 69 20 3d |.repeat |with i =|
|000023e0| 20 35 20 74 6f 20 32 30 | 0d 69 66 20 69 74 65 6d | 5 to 20|.if item|
|000023f0| 20 69 20 6f 66 20 6c 69 | 6e 65 20 6c 69 6e 65 4e | i of li|ne lineN|
|00002400| 6f 20 6f 66 20 74 68 65 | 52 65 61 64 69 6e 67 73 |o of the|Readings|
|00002410| 20 ad 20 22 3f 20 3f 22 | 20 74 68 65 6e 0d 77 61 | . "? ?"| then.wa|
|00002420| 69 74 43 75 72 73 6f 72 | 0d 73 65 74 43 61 72 64 |itCursor|.setCard|
|00002430| 20 69 0d 67 6f 20 74 6f | 20 74 68 69 73 20 63 64 | i.go to| this cd|
|00002440| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 72 65 70 65 |.end if.|end repe|
|00002450| 61 74 0d 70 75 74 20 6e | 6f 74 28 67 65 74 41 75 |at.put n|ot(getAu|
|00002460| 74 6f 53 65 6c 28 29 20 | 3d 20 22 66 61 6c 73 65 |toSel() |= "false|
|00002470| 22 29 20 69 6e 74 6f 20 | 6c 69 6e 65 20 6c 69 6e |") into |line lin|
|00002480| 65 4e 6f 20 6f 66 20 61 | 75 74 6f 53 65 6c 65 63 |eNo of a|utoSelec|
|00002490| 74 0d 69 66 20 67 65 74 | 41 75 74 6f 53 65 6c 28 |t.if get|AutoSel(|
|000024a0| 29 20 3d 20 74 72 75 65 | 20 74 68 65 6e 0d 70 75 |) = true| then.pu|
|000024b0| 74 20 30 20 69 6e 74 6f | 20 6c 69 6e 65 20 6c 69 |t 0 into| line li|
|000024c0| 6e 65 4e 6f 20 6f 66 20 | 64 61 72 6b 43 61 72 64 |neNo of |darkCard|
|000024d0| 0d 68 61 6e 64 6c 65 4d | 6f 75 73 65 20 28 35 20 |.handleM|ouse (5 |
|000024e0| 2b 20 77 68 69 63 68 43 | 61 72 64 29 0d 65 6e 64 |+ whichC|ard).end|
|000024f0| 20 69 66 0d 65 6e 64 20 | 63 61 6c 63 75 6c 61 74 | if.end |calculat|
|00002500| 65 4c 69 66 65 74 69 6d | 65 0d 0d 0d 2d 2d 20 a5 |eLifetim|e...-- .|
|00002510| 20 49 4e 54 45 47 52 41 | 54 49 4f 4e 0d 0d 6f 6e | INTEGRA|TION..on|
|00002520| 20 69 6e 69 74 50 6c 75 | 67 49 6e 0d 65 6e 64 20 | initPlu|gIn.end |
|00002530| 69 6e 69 74 50 6c 75 67 | 49 6e 0d 0d 6f 6e 20 66 |initPlug|In..on f|
|00002540| 69 6e 69 73 68 53 61 76 | 65 0d 75 70 64 61 74 65 |inishSav|e.update|
|00002550| 59 65 61 72 73 0d 65 6e | 64 20 66 69 6e 69 73 68 |Years.en|d finish|
|00002560| 53 61 76 65 0d 0d 6f 6e | 20 6c 69 66 65 45 72 72 |Save..on| lifeErr|
|00002570| 6f 72 20 74 68 65 4e 6f | 2c 74 68 65 4c 69 73 74 |or theNo|,theList|
|00002580| 0d 67 6c 6f 62 61 6c 20 | 70 6c 75 67 46 6f 6c 64 |.global |plugFold|
|00002590| 65 72 2c 74 68 65 53 74 | 61 63 6b 0d 70 75 74 20 |er,theSt|ack.put |
|000025a0| 70 6c 75 67 46 6f 6c 64 | 65 72 20 26 20 74 68 65 |plugFold|er & the|
|000025b0| 53 74 61 63 6b 20 69 6e | 74 6f 20 73 0d 63 6c 6f |Stack in|to s.clo|
|000025c0| 73 65 50 72 6f 67 0d 70 | 75 74 20 67 65 74 52 65 |seProg.p|ut getRe|
|000025d0| 73 54 65 78 74 28 22 74 | 77 45 72 72 6f 72 73 22 |sText("t|wErrors"|
|000025e0| 2c 74 68 65 4e 6f 2c 74 | 68 65 4c 69 73 74 2c 73 |,theNo,t|heList,s|
|000025f0| 29 20 69 6e 74 6f 20 74 | 68 65 54 65 78 74 0d 69 |) into t|heText.i|
|00002600| 66 20 74 68 65 54 65 78 | 74 20 ad 20 22 22 20 74 |f theTex|t . "" t|
|00002610| 68 65 6e 0d 73 68 6f 77 | 44 69 61 6c 6f 67 7a 20 |hen.show|Dialogz |
|00002620| 31 2c 20 22 31 39 39 38 | 22 2c 20 74 68 65 54 65 |1, "1998|", theTe|
|00002630| 78 74 2c 20 22 74 72 75 | 65 22 0d 65 6c 73 65 20 |xt, "tru|e".else |
|00002640| 62 65 65 70 20 32 0d 65 | 6e 64 20 6c 69 66 65 45 |beep 2.e|nd lifeE|
|00002650| 72 72 6f 72 0d 0d 6f 6e | 20 6c 69 66 65 4d 65 73 |rror..on| lifeMes|
|00002660| 73 61 67 65 20 74 68 65 | 4e 6f 2c 74 68 65 4c 69 |sage the|No,theLi|
|00002670| 73 74 0d 67 6c 6f 62 61 | 6c 20 70 6c 75 67 46 6f |st.globa|l plugFo|
|00002680| 6c 64 65 72 2c 74 68 65 | 53 74 61 63 6b 0d 70 75 |lder,the|Stack.pu|
|00002690| 74 20 70 6c 75 67 46 6f | 6c 64 65 72 20 26 20 74 |t plugFo|lder & t|
|000026a0| 68 65 53 74 61 63 6b 20 | 69 6e 74 6f 20 73 0d 63 |heStack |into s.c|
|000026b0| 6c 6f 73 65 50 72 6f 67 | 0d 70 75 74 20 67 65 74 |loseProg|.put get|
|000026c0| 52 65 73 54 65 78 74 28 | 22 74 77 4d 65 73 73 61 |ResText(|"twMessa|
|000026d0| 67 65 73 22 2c 74 68 65 | 4e 6f 2c 74 68 65 4c 69 |ges",the|No,theLi|
|000026e0| 73 74 2c 73 29 20 69 6e | 74 6f 20 74 68 65 54 65 |st,s) in|to theTe|
|000026f0| 78 74 0d 69 66 20 74 68 | 65 54 65 78 74 20 ad 20 |xt.if th|eText . |
|00002700| 22 22 20 74 68 65 6e 0d | 73 68 6f 77 44 69 61 6c |"" then.|showDial|
|00002710| 6f 67 7a 20 31 2c 20 22 | 31 38 39 38 22 2c 20 74 |ogz 1, "|1898", t|
|00002720| 68 65 54 65 78 74 2c 20 | 22 74 72 75 65 22 0d 65 |heText, |"true".e|
|00002730| 6c 73 65 20 62 65 65 70 | 0d 65 6e 64 20 6c 69 66 |lse beep|.end lif|
|00002740| 65 4d 65 73 73 61 67 65 | 0d 0d 6f 6e 20 6c 69 66 |eMessage|..on lif|
|00002750| 65 41 6e 73 77 65 72 7a | 20 74 68 65 4e 6f 2c 74 |eAnswerz| theNo,t|
|00002760| 68 65 4c 69 73 74 0d 67 | 6c 6f 62 61 6c 20 70 6c |heList.g|lobal pl|
|00002770| 75 67 46 6f 6c 64 65 72 | 2c 74 68 65 53 74 61 63 |ugFolder|,theStac|
|00002780| 6b 0d 70 75 74 20 70 6c | 75 67 46 6f 6c 64 65 72 |k.put pl|ugFolder|
|00002790| 20 26 20 74 68 65 53 74 | 61 63 6b 20 69 6e 74 6f | & theSt|ack into|
|000027a0| 20 73 0d 70 75 74 20 67 | 65 74 52 65 73 54 65 78 | s.put g|etResTex|
|000027b0| 74 28 22 74 77 44 69 61 | 6c 6f 67 73 22 2c 74 68 |t("twDia|logs",th|
|000027c0| 65 4e 6f 2c 74 68 65 4c | 69 73 74 2c 73 29 20 69 |eNo,theL|ist,s) i|
|000027d0| 6e 74 6f 20 74 68 65 54 | 65 78 74 0d 69 66 20 74 |nto theT|ext.if t|
|000027e0| 68 65 54 65 78 74 20 ad | 20 22 22 20 74 68 65 6e |heText .| "" then|
|000027f0| 0d 73 68 6f 77 44 69 61 | 6c 6f 67 7a 20 31 2c 20 |.showDia|logz 1, |
|00002800| 22 31 38 39 39 22 2c 20 | 74 68 65 54 65 78 74 2c |"1899", |theText,|
|00002810| 20 22 74 72 75 65 22 0d | 72 65 74 75 72 6e 20 28 | "true".|return (|
|00002820| 74 68 65 20 72 65 73 75 | 6c 74 20 3d 20 22 31 22 |the resu|lt = "1"|
|00002830| 29 0d 65 6c 73 65 0d 62 | 65 65 70 0d 72 65 74 75 |).else.b|eep.retu|
|00002840| 72 6e 20 46 41 4c 53 45 | 0d 65 6e 64 20 69 66 0d |rn FALSE|.end if.|
|00002850| 65 6e 64 20 6c 69 66 65 | 41 6e 73 77 65 72 7a 0d |end life|Answerz.|
|00002860| 0d 6f 6e 20 6c 6f 61 64 | 45 78 74 72 61 49 6e 66 |.on load|ExtraInf|
|00002870| 6f 20 73 0d 67 6c 6f 62 | 61 6c 20 6c 69 6e 65 4e |o s.glob|al lineN|
|00002880| 6f 2c 75 73 65 72 44 61 | 74 65 2c 74 68 65 43 75 |o,userDa|te,theCu|
|00002890| 72 72 65 6e 74 59 65 61 | 72 2c 76 69 65 77 69 6e |rrentYea|r,viewin|
|000028a0| 67 59 65 61 72 2c 63 79 | 63 6c 65 53 74 61 72 74 |gYear,cy|cleStart|
|000028b0| 2c 63 79 63 6c 65 45 6e | 64 0d 70 75 74 20 6c 69 |,cycleEn|d.put li|
|000028c0| 6e 65 20 32 20 6f 66 20 | 73 20 69 6e 74 6f 20 74 |ne 2 of |s into t|
|000028d0| 0d 70 75 74 20 31 20 69 | 6e 74 6f 20 69 0d 70 75 |.put 1 i|nto i.pu|
|000028e0| 74 20 69 74 65 6d 20 31 | 20 6f 66 20 6c 69 6e 65 |t item 1| of line|
|000028f0| 20 32 20 6f 66 20 73 20 | 69 6e 74 6f 20 74 65 6d | 2 of s |into tem|
|00002900| 70 44 61 74 65 0d 69 66 | 20 6e 6f 74 20 69 73 44 |pDate.if| not isD|
|00002910| 61 74 65 28 74 65 6d 70 | 64 61 74 65 29 20 74 68 |ate(temp|date) th|
|00002920| 65 6e 0d 70 75 74 20 69 | 74 65 6d 20 31 20 74 6f |en.put i|tem 1 to|
|00002930| 20 37 20 6f 66 20 74 20 | 69 6e 74 6f 20 6c 69 6e | 7 of t |into lin|
|00002940| 65 20 6c 69 6e 65 4e 6f | 20 6f 66 20 75 73 65 72 |e lineNo| of user|
|00002950| 44 61 74 65 0d 70 75 74 | 20 37 20 69 6e 74 6f 20 |Date.put| 7 into |
|00002960| 69 0d 65 6e 64 20 69 66 | 0d 70 75 74 20 69 74 65 |i.end if|.put ite|
|00002970| 6d 20 69 2b 31 20 6f 66 | 20 74 20 69 6e 74 6f 20 |m i+1 of| t into |
|00002980| 6c 69 6e 65 20 6c 69 6e | 65 4e 6f 20 6f 66 20 74 |line lin|eNo of t|
|00002990| 68 65 43 75 72 72 65 6e | 74 59 65 61 72 0d 70 75 |heCurren|tYear.pu|
|000029a0| 74 20 69 74 65 6d 20 69 | 2b 32 20 6f 66 20 74 20 |t item i|+2 of t |
|000029b0| 69 6e 74 6f 20 6c 69 6e | 65 20 6c 69 6e 65 4e 6f |into lin|e lineNo|
|000029c0| 20 6f 66 20 76 69 65 77 | 69 6e 67 59 65 61 72 0d | of view|ingYear.|
|000029d0| 70 75 74 20 69 74 65 6d | 20 69 2b 33 20 6f 66 20 |put item| i+3 of |
|000029e0| 74 20 69 6e 74 6f 20 6c | 69 6e 65 20 6c 69 6e 65 |t into l|ine line|
|000029f0| 4e 6f 20 6f 66 20 63 79 | 63 6c 65 53 74 61 72 74 |No of cy|cleStart|
|00002a00| 0d 70 75 74 20 69 74 65 | 6d 20 69 2b 34 20 6f 66 |.put ite|m i+4 of|
|00002a10| 20 74 20 69 6e 74 6f 20 | 6c 69 6e 65 20 6c 69 6e | t into |line lin|
|00002a20| 65 4e 6f 20 6f 66 20 63 | 79 63 6c 65 45 6e 64 0d |eNo of c|ycleEnd.|
|00002a30| 65 6e 64 20 6c 6f 61 64 | 45 78 74 72 61 49 6e 66 |end load|ExtraInf|
|00002a40| 6f 0d 0d 66 75 6e 63 74 | 69 6f 6e 20 61 64 64 45 |o..funct|ion addE|
|00002a50| 78 74 72 61 54 61 67 20 | 78 0d 69 66 20 78 20 3c |xtraTag |x.if x <|
|00002a60| 20 34 20 74 68 65 6e 20 | 72 65 74 75 72 6e 20 22 | 4 then |return "|
|00002a70| 20 4c 22 0d 69 66 20 78 | 20 3d 20 34 20 74 68 65 | L".if x| = 4 the|
|00002a80| 6e 20 72 65 74 75 72 6e | 20 22 20 47 43 22 0d 69 |n return| " GC".i|
|00002a90| 66 20 78 20 3e 20 34 20 | 74 68 65 6e 20 72 65 74 |f x > 4 |then ret|
|00002aa0| 75 72 6e 20 22 20 47 22 | 0d 65 6e 64 20 61 64 64 |urn " G"|.end add|
|00002ab0| 45 78 74 72 61 54 61 67 | 0d 0d 66 75 6e 63 74 69 |ExtraTag|..functi|
|00002ac0| 6f 6e 20 61 64 64 53 61 | 76 65 49 6e 66 6f 20 73 |on addSa|veInfo s|
|00002ad0| 61 76 65 53 74 72 69 6e | 67 0d 67 6c 6f 62 61 6c |aveStrin|g.global|
|00002ae0| 20 6c 69 6e 65 4e 6f 2c | 75 73 65 72 44 61 74 65 | lineNo,|userDate|
|00002af0| 2c 74 68 65 43 75 72 72 | 65 6e 74 59 65 61 72 2c |,theCurr|entYear,|
|00002b00| 76 69 65 77 69 6e 67 59 | 65 61 72 2c 63 79 63 6c |viewingY|ear,cycl|
|00002b10| 65 53 74 61 72 74 2c 63 | 79 63 6c 65 45 6e 64 0d |eStart,c|ycleEnd.|
|00002b20| 70 75 74 20 72 65 74 75 | 72 6e 20 26 20 6c 69 6e |put retu|rn & lin|
|00002b30| 65 20 6c 69 6e 65 4e 6f | 20 6f 66 20 75 73 65 72 |e lineNo| of user|
|00002b40| 44 61 74 65 20 26 20 22 | 2c 22 20 26 20 6c 69 6e |Date & "|," & lin|
|00002b50| 65 20 6c 69 6e 65 4e 6f | 20 6f 66 20 c2 0d 74 68 |e lineNo| of ..th|
|00002b60| 65 43 75 72 72 65 6e 74 | 59 65 61 72 20 26 20 22 |eCurrent|Year & "|
|00002b70| 2c 22 20 26 20 6c 69 6e | 65 20 6c 69 6e 65 4e 6f |," & lin|e lineNo|
|00002b80| 20 6f 66 20 76 69 65 77 | 69 6e 67 59 65 61 72 20 | of view|ingYear |
|00002b90| 26 20 22 2c 22 20 26 20 | 6c 69 6e 65 20 c2 0d 6c |& "," & |line ..l|
|00002ba0| 69 6e 65 4e 6f 20 6f 66 | 20 63 79 63 6c 65 53 74 |ineNo of| cycleSt|
|00002bb0| 61 72 74 20 26 20 22 2c | 22 20 26 20 6c 69 6e 65 |art & ",|" & line|
|00002bc0| 20 6c 69 6e 65 4e 6f 20 | 6f 66 20 63 79 63 6c 65 | lineNo |of cycle|
|00002bd0| 45 6e 64 20 61 66 74 65 | 72 20 73 61 76 65 53 74 |End afte|r saveSt|
|00002be0| 72 69 6e 67 0d 72 65 74 | 75 72 6e 20 73 61 76 65 |ring.ret|urn save|
|00002bf0| 53 74 72 69 6e 67 0d 65 | 6e 64 20 61 64 64 53 61 |String.e|nd addSa|
|00002c00| 76 65 49 6e 66 6f 0d 0d | 0d 2d 2d 20 a5 20 52 45 |veInfo..|.-- . RE|
|00002c10| 50 4c 41 43 45 4d 45 4e | 54 0d 0d 6f 6e 20 61 64 |PLACEMEN|T..on ad|
|00002c20| 64 44 65 74 61 69 6c 73 | 0d 67 6c 6f 62 61 6c 20 |dDetails|.global |
|00002c30| 63 6f 6d 6d 65 6e 74 61 | 72 79 0d 67 65 74 20 63 |commenta|ry.get c|
|00002c40| 61 6c 63 44 61 74 65 28 | 29 0d 69 66 20 69 74 20 |alcDate(|).if it |
|00002c50| ad 20 22 22 20 74 68 65 | 6e 0d 70 75 74 20 6c 69 |. "" the|n.put li|
|00002c60| 6e 65 20 31 20 6f 66 20 | 74 68 65 20 74 65 78 74 |ne 1 of |the text|
|00002c70| 20 6f 66 20 77 69 6e 64 | 6f 77 20 63 6f 6d 6d 65 | of wind|ow comme|
|00002c80| 6e 74 61 72 79 20 69 6e | 74 6f 20 69 0d 70 75 74 |ntary in|to i.put|
|00002c90| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 63 | the num|ber of c|
|00002ca0| 68 61 72 73 20 6f 66 20 | 69 20 69 6e 74 6f 20 6a |hars of |i into j|
|00002cb0| 0d 70 75 74 20 74 68 65 | 20 6c 61 73 74 20 63 68 |.put the| last ch|
|00002cc0| 61 72 20 6f 66 20 69 20 | 69 6e 74 6f 20 69 0d 73 |ar of i |into i.s|
|00002cd0| 65 74 20 74 68 65 20 73 | 65 6c 65 63 74 65 64 43 |et the s|electedC|
|00002ce0| 68 75 6e 6b 20 6f 66 20 | 77 69 6e 64 6f 77 20 63 |hunk of |window c|
|00002cf0| 6f 6d 6d 65 6e 74 61 72 | 79 20 74 6f 20 6a 2c 6a |ommentar|y to j,j|
|00002d00| 0d 73 65 74 20 74 68 65 | 20 73 65 6c 65 63 74 65 |.set the| selecte|
|00002d10| 64 54 65 78 74 20 6f 66 | 20 77 69 6e 64 6f 77 20 |dText of| window |
|00002d20| 63 6f 6d 6d 65 6e 74 61 | 72 79 20 74 6f 20 69 0d |commenta|ry to i.|
|00002d30| 73 65 74 20 74 68 65 20 | 74 65 78 74 43 6f 6c 6f |set the |textColo|
|00002d40| 72 20 6f 66 20 77 69 6e | 64 6f 77 20 63 6f 6d 6d |r of win|dow comm|
|00002d50| 65 6e 74 61 72 79 20 74 | 6f 20 22 62 6c 61 63 6b |entary t|o "black|
|00002d60| 22 0d 73 65 74 20 74 68 | 65 20 74 65 78 74 53 74 |".set th|e textSt|
|00002d70| 79 6c 65 20 6f 66 20 77 | 69 6e 64 6f 77 20 63 6f |yle of w|indow co|
|00002d80| 6d 6d 65 6e 74 61 72 79 | 20 74 6f 20 22 70 6c 61 |mmentary| to "pla|
|00002d90| 69 6e 22 0d 73 65 74 20 | 74 68 65 20 73 65 6c 65 |in".set |the sele|
|00002da0| 63 74 65 64 54 65 78 74 | 20 6f 66 20 77 69 6e 64 |ctedText| of wind|
|00002db0| 6f 77 20 63 6f 6d 6d 65 | 6e 74 61 72 79 20 74 6f |ow comme|ntary to|
|00002dc0| 20 28 22 20 20 28 22 20 | 26 20 69 74 20 26 20 22 | (" (" |& it & "|
|00002dd0| 29 22 29 0d 73 65 74 20 | 74 68 65 20 6c 6f 63 6b |)").set |the lock|
|00002de0| 54 65 78 74 20 6f 66 20 | 77 69 6e 64 6f 77 20 63 |Text of |window c|
|00002df0| 6f 6d 6d 65 6e 74 61 72 | 79 20 74 6f 20 74 72 75 |ommentar|y to tru|
|00002e00| 65 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 61 64 64 |e.end if|.end add|
|00002e10| 44 65 74 61 69 6c 73 0d | 0d 66 75 6e 63 74 69 6f |Details.|.functio|
|00002e20| 6e 20 63 61 6c 63 44 61 | 74 65 20 64 4b 0d 67 6c |n calcDa|te dK.gl|
|00002e30| 6f 62 61 6c 20 6c 69 6e | 65 4e 6f 2c 75 73 65 72 |obal lin|eNo,user|
|00002e40| 44 61 74 65 2c 63 79 63 | 6c 65 53 74 61 72 74 2c |Date,cyc|leStart,|
|00002e50| 63 79 63 6c 65 45 6e 64 | 0d 69 66 20 64 4b 20 69 |cycleEnd|.if dK i|
|00002e60| 73 20 65 6d 70 74 79 20 | 74 68 65 6e 20 70 75 74 |s empty |then put|
|00002e70| 20 67 65 74 44 61 72 6b | 28 29 20 69 6e 74 6f 20 | getDark|() into |
|00002e80| 64 4b 0d 70 75 74 20 6c | 69 6e 65 20 6c 69 6e 65 |dK.put l|ine line|
|00002e90| 4e 6f 20 6f 66 20 75 73 | 65 72 44 61 74 65 20 69 |No of us|erDate i|
|00002ea0| 6e 74 6f 20 75 44 0d 70 | 75 74 20 6c 69 6e 65 20 |nto uD.p|ut line |
|00002eb0| 6c 69 6e 65 4e 6f 20 6f | 66 20 63 79 63 6c 65 53 |lineNo o|f cycleS|
|00002ec0| 74 61 72 74 20 69 6e 74 | 6f 20 63 73 0d 70 75 74 |tart int|o cs.put|
|00002ed0| 20 6c 69 6e 65 20 6c 69 | 6e 65 4e 6f 20 6f 66 20 | line li|neNo of |
|00002ee0| 63 79 63 6c 65 45 6e 64 | 20 69 6e 74 6f 20 63 65 |cycleEnd| into ce|
|00002ef0| 0d 70 75 74 20 75 44 20 | 69 6e 74 6f 20 73 74 61 |.put uD |into sta|
|00002f00| 72 74 54 69 6d 65 0d 70 | 75 74 20 75 44 20 69 6e |rtTime.p|ut uD in|
|00002f10| 74 6f 20 65 6e 64 54 69 | 6d 65 0d 69 66 20 64 4b |to endTi|me.if dK|
|00002f20| 20 3e 20 33 20 74 68 65 | 6e 0d 69 66 20 64 4b 20 | > 3 the|n.if dK |
|00002f30| 3d 20 34 20 74 68 65 6e | 20 2d 2d 20 63 79 63 6c |= 4 then| -- cycl|
|00002f40| 65 0d 70 75 74 20 63 73 | 20 26 20 22 d0 22 20 26 |e.put cs| & "." &|
|00002f50| 20 63 65 20 26 20 22 3b | 22 20 26 26 20 28 63 65 | ce & ";|" && (ce|
|00002f60| 20 2d 20 63 73 20 2b 20 | 31 29 20 26 26 20 22 79 | - cs + |1) && "y|
|00002f70| 65 61 72 73 22 20 69 6e | 74 6f 20 6b 0d 65 6e 64 |ears" in|to k.end|
|00002f80| 20 69 66 0d 69 66 20 64 | 4b 20 3e 20 34 20 74 68 | if.if d|K > 4 th|
|00002f90| 65 6e 20 2d 2d 20 67 72 | 6f 77 74 68 20 79 65 61 |en -- gr|owth yea|
|00002fa0| 72 0d 67 65 74 20 69 74 | 65 6d 20 33 20 6f 66 20 |r.get it|em 3 of |
|00002fb0| 75 44 0d 69 66 20 69 74 | 20 3c 20 32 37 20 61 6e |uD.if it| < 27 an|
|00002fc0| 64 20 69 74 20 3e 20 31 | 20 74 68 65 6e 0d 70 75 |d it > 1| then.pu|
|00002fd0| 74 20 73 6d 61 6c 6c 64 | 61 74 65 28 63 53 20 2b |t smalld|ate(cS +|
|00002fe0| 20 28 64 4b 20 2d 20 35 | 29 2c 69 74 65 6d 20 32 | (dK - 5|),item 2|
|00002ff0| 20 6f 66 20 75 44 2c 69 | 74 29 20 26 26 20 22 74 | of uD,i|t) && "t|
|00003000| 6f 22 20 26 26 20 c2 0d | 73 6d 61 6c 6c 44 61 74 |o" && ..|smallDat|
|00003010| 65 28 63 53 20 2b 20 28 | 64 4b 20 2d 20 34 29 2c |e(cS + (|dK - 4),|
|00003020| 69 74 65 6d 20 32 20 6f | 66 20 75 44 2c 69 74 2d |item 2 o|f uD,it-|
|00003030| 31 29 20 69 6e 74 6f 20 | 6b 0d 65 6c 73 65 0d 70 |1) into |k.else.p|
|00003040| 75 74 20 28 63 53 20 2b | 20 28 64 4b 20 2d 20 35 |ut (cS +| (dK - 5|
|00003050| 29 29 20 69 6e 74 6f 20 | 74 65 6d 70 56 69 65 77 |)) into |tempView|
|00003060| 69 6e 67 0d 70 75 74 20 | 74 65 6d 70 56 69 65 77 |ing.put |tempView|
|00003070| 69 6e 67 20 69 6e 74 6f | 20 69 74 65 6d 20 31 20 |ing into| item 1 |
|00003080| 6f 66 20 73 74 61 72 74 | 54 69 6d 65 0d 70 75 74 |of start|Time.put|
|00003090| 20 74 65 6d 70 56 69 65 | 77 69 6e 67 20 2b 20 31 | tempVie|wing + 1|
|000030a0| 20 69 6e 74 6f 20 69 74 | 65 6d 20 31 20 6f 66 20 | into it|em 1 of |
|000030b0| 65 6e 64 54 69 6d 65 0d | 73 75 62 74 72 61 63 74 |endTime.|subtract|
|000030c0| 20 31 20 66 72 6f 6d 20 | 69 74 65 6d 20 33 20 6f | 1 from |item 3 o|
|000030d0| 66 20 65 6e 64 54 69 6d | 65 0d 63 6f 6e 76 65 72 |f endTim|e.conver|
|000030e0| 74 20 65 6e 64 54 69 6d | 65 20 74 6f 20 64 61 74 |t endTim|e to dat|
|000030f0| 65 49 74 65 6d 73 0d 70 | 75 74 20 73 6d 61 6c 6c |eItems.p|ut small|
|00003100| 44 61 74 65 28 73 74 61 | 72 74 54 69 6d 65 29 20 |Date(sta|rtTime) |
|00003110| 26 26 20 22 74 6f 22 20 | 26 26 20 73 6d 61 6c 6c |&& "to" |&& small|
|00003120| 44 61 74 65 28 65 6e 64 | 54 69 6d 65 29 20 69 6e |Date(end|Time) in|
|00003130| 74 6f 20 6b 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |to k.end| if.end |
|00003140| 69 66 0d 72 65 74 75 72 | 6e 20 6b 0d 65 6c 73 65 |if.retur|n k.else|
|00003150| 20 72 65 74 75 72 6e 20 | 22 22 0d 65 6e 64 20 63 | return |"".end c|
|00003160| 61 6c 63 44 61 74 65 0d | 0d 6f 6e 20 62 6c 61 6e |alcDate.|.on blan|
|00003170| 6b 43 61 72 64 73 20 74 | 68 65 45 78 74 72 61 2c |kCards t|heExtra,|
|00003180| 77 68 69 63 68 2c 73 74 | 61 72 74 46 6c 61 67 0d |which,st|artFlag.|
|00003190| 69 66 20 62 20 3d 20 22 | 22 20 74 68 65 6e 0d 72 |if b = "|" then.r|
|000031a0| 65 70 65 61 74 20 77 69 | 74 68 20 69 20 3d 20 31 |epeat wi|th i = 1|
|000031b0| 20 74 6f 20 31 36 0d 70 | 75 74 20 22 22 20 69 6e | to 16.p|ut "" in|
|000031c0| 74 6f 20 66 6c 64 20 69 | 0d 73 65 74 20 74 68 65 |to fld i|.set the|
|000031d0| 20 74 65 78 74 53 74 79 | 6c 65 20 6f 66 20 66 6c | textSty|le of fl|
|000031e0| 64 20 69 20 74 6f 20 22 | 70 6c 61 69 6e 22 0d 65 |d i to "|plain".e|
|000031f0| 6e 64 20 72 65 70 65 61 | 74 0d 65 6e 64 20 69 66 |nd repea|t.end if|
|00003200| 0d 67 6c 6f 62 61 6c 20 | 69 63 6f 6e 44 65 63 6b |.global |iconDeck|
|00003210| 2c 74 68 65 53 74 61 63 | 6b 2c 70 6f 73 69 74 69 |,theStac|k,positi|
|00003220| 6f 6e 73 2c 62 69 74 44 | 65 70 74 68 2c 62 61 63 |ons,bitD|epth,bac|
|00003230| 6b 43 6f 6c 6f 72 2c 74 | 6f 6c 50 72 65 66 0d 69 |kColor,t|olPref.i|
|00003240| 66 20 74 68 65 45 78 74 | 72 61 20 69 73 20 65 6d |f theExt|ra is em|
|00003250| 70 74 79 20 74 68 65 6e | 0d 70 75 74 20 22 43 61 |pty then|.put "Ca|
|00003260| 72 64 20 42 61 63 6b 22 | 20 69 6e 74 6f 20 63 61 |rd Back"| into ca|
|00003270| 72 64 4e 61 6d 65 0d 65 | 6c 73 65 20 70 75 74 20 |rdName.e|lse put |
|00003280| 22 43 61 72 64 20 42 61 | 63 6b 22 20 26 26 20 74 |"Card Ba|ck" && t|
|00003290| 68 65 45 78 74 72 61 20 | 69 6e 74 6f 20 63 61 72 |heExtra |into car|
|000032a0| 64 4e 61 6d 65 0d 69 66 | 20 69 63 6f 6e 44 65 63 |dName.if| iconDec|
|000032b0| 6b 20 69 73 20 6e 6f 74 | 20 65 6d 70 74 79 20 74 |k is not| empty t|
|000032c0| 68 65 6e 0d 70 75 74 20 | 22 20 43 22 20 61 66 74 |hen.put |" C" aft|
|000032d0| 65 72 20 63 61 72 64 4e | 61 6d 65 0d 65 6c 73 65 |er cardN|ame.else|
|000032e0| 20 70 75 74 20 22 20 50 | 22 20 61 66 74 65 72 20 | put " P|" after |
|000032f0| 63 61 72 64 6e 61 6d 65 | 0d 69 66 20 77 68 69 63 |cardname|.if whic|
|00003300| 68 20 69 73 20 6e 6f 74 | 20 61 20 6e 75 6d 62 65 |h is not| a numbe|
|00003310| 72 20 6f 72 20 77 68 69 | 63 68 20 69 73 20 65 6d |r or whi|ch is em|
|00003320| 70 74 79 20 74 68 65 6e | 0d 69 66 20 73 74 61 72 |pty then|.if star|
|00003330| 74 46 6c 61 67 20 69 73 | 20 6e 6f 74 20 61 20 6e |tFlag is| not a n|
|00003340| 75 6d 62 65 72 20 6f 72 | 20 73 74 61 72 74 46 6c |umber or| startFl|
|00003350| 61 67 20 69 73 20 65 6d | 70 74 79 20 74 68 65 6e |ag is em|pty then|
|00003360| 0d 69 66 20 74 6f 6c 50 | 72 65 66 20 74 68 65 6e |.if tolP|ref then|
|00003370| 20 73 65 6e 64 20 28 22 | 64 72 61 77 54 72 65 65 | send ("|drawTree|
|00003380| 20 28 22 20 26 20 71 75 | 6f 74 65 20 26 20 22 20 | (" & qu|ote & " |
|00003390| 22 20 26 20 74 68 65 45 | 78 74 72 61 20 26 20 c2 |" & theE|xtra & .|
|000033a0| 0d 71 75 6f 74 65 20 26 | 20 22 29 22 29 20 74 6f |.quote &| ")") to|
|000033b0| 20 74 68 69 73 20 63 64 | 0d 70 75 74 20 31 20 69 | this cd|.put 1 i|
|000033c0| 6e 74 6f 20 6a 0d 65 6c | 73 65 20 70 75 74 20 73 |nto j.el|se put s|
|000033d0| 74 61 72 74 46 6c 61 67 | 20 69 6e 74 6f 20 6a 0d |tartFlag| into j.|
|000033e0| 70 75 74 20 70 6f 73 69 | 74 69 6f 6e 73 20 69 6e |put posi|tions in|
|000033f0| 74 6f 20 6b 0d 65 6c 73 | 65 0d 70 75 74 20 77 68 |to k.els|e.put wh|
|00003400| 69 63 68 20 69 6e 74 6f | 20 6a 0d 70 75 74 20 77 |ich into| j.put w|
|00003410| 68 69 63 68 20 69 6e 74 | 6f 20 6b 0d 65 6e 64 20 |hich int|o k.end |
|00003420| 69 66 0d 70 75 74 20 66 | 61 6c 73 65 20 69 6e 74 |if.put f|alse int|
|00003430| 6f 20 63 6c 65 61 72 46 | 69 72 73 74 0d 70 75 74 |o clearF|irst.put|
|00003440| 20 22 63 6f 6c 6f 72 69 | 7a 65 48 43 22 20 26 26 | "colori|zeHC" &&|
|00003450| 20 71 69 28 22 41 64 64 | 22 29 20 26 20 22 2c 22 | qi("Add|") & ","|
|00003460| 20 26 26 20 71 69 28 63 | 61 72 64 4e 61 6d 65 29 | && qi(c|ardName)|
|00003470| 20 26 20 22 2c 22 20 69 | 6e 74 6f 20 74 68 65 43 | & "," i|nto theC|
|00003480| 6d 64 0d 69 66 20 62 69 | 74 44 65 70 74 68 20 3e |md.if bi|tDepth >|
|00003490| 20 32 20 74 68 65 6e 0d | 69 66 20 22 44 69 6d 6d | 2 then.|if "Dimm|
|000034a0| 65 64 22 20 69 73 20 74 | 68 65 45 78 74 72 61 20 |ed" is t|heExtra |
|000034b0| 74 68 65 6e 0d 70 75 74 | 20 22 2c 2c 22 20 26 26 |then.put| ",," &&|
|000034c0| 20 71 69 28 22 41 64 4d | 69 6e 22 29 20 61 66 74 | qi("AdM|in") aft|
|000034d0| 65 72 20 74 68 65 43 6d | 64 0d 70 75 74 20 74 72 |er theCm|d.put tr|
|000034e0| 75 65 20 69 6e 74 6f 20 | 63 6c 65 61 72 46 69 72 |ue into |clearFir|
|000034f0| 73 74 0d 65 6c 73 65 20 | 70 75 74 20 22 2c 2c 22 |st.else |put ",,"|
|00003500| 20 26 26 20 71 69 28 22 | 54 72 61 6e 73 70 61 72 | && qi("|Transpar|
|00003510| 65 6e 74 22 29 20 61 66 | 74 65 72 20 74 68 65 43 |ent") af|ter theC|
|00003520| 6d 64 0d 65 6c 73 65 20 | 69 66 20 62 69 74 44 65 |md.else |if bitDe|
|00003530| 70 74 68 20 3c 20 34 20 | 61 6e 64 20 69 63 6f 6e |pth < 4 |and icon|
|00003540| 44 65 63 6b 20 69 73 20 | 65 6d 70 74 79 0d 74 68 |Deck is |empty.th|
|00003550| 65 6e 20 70 75 74 20 22 | 2c 2c 22 20 26 26 20 71 |en put "|,," && q|
|00003560| 69 28 22 77 69 74 68 20 | 44 69 74 68 65 72 69 6e |i("with |Ditherin|
|00003570| 67 22 29 20 61 66 74 65 | 72 20 74 68 65 43 6d 64 |g") afte|r theCmd|
|00003580| 0d 72 65 70 65 61 74 20 | 77 69 74 68 20 69 20 3d |.repeat |with i =|
|00003590| 20 6a 20 74 6f 20 6b 0d | 69 66 20 74 68 65 53 74 | j to k.|if theSt|
|000035a0| 61 63 6b 20 3d 20 22 4c | 69 66 65 74 69 6d 65 22 |ack = "L|ifetime"|
|000035b0| 20 74 68 65 6e 0d 69 66 | 20 69 20 69 73 20 69 6e | then.if| i is in|
|000035c0| 20 22 32 2c 33 22 20 61 | 6e 64 20 28 28 77 68 69 | "2,3" a|nd ((whi|
|000035d0| 63 68 20 26 20 73 74 61 | 72 74 46 6c 61 67 29 20 |ch & sta|rtFlag) |
|000035e0| 69 73 20 65 6d 70 74 79 | 29 20 74 68 65 6e 0d 68 |is empty|) then.h|
|000035f0| 69 64 65 43 61 72 64 20 | 69 0d 6e 65 78 74 20 72 |ideCard |i.next r|
|00003600| 65 70 65 61 74 0d 65 6e | 64 20 69 66 0d 65 6e 64 |epeat.en|d if.end|
|00003610| 20 69 66 0d 69 66 20 63 | 6c 65 61 72 46 69 72 73 | if.if c|learFirs|
|00003620| 74 20 74 68 65 6e 20 64 | 6f 20 28 22 63 6f 6c 6f |t then d|o ("colo|
|00003630| 72 69 7a 65 48 43 22 20 | 26 26 20 71 69 28 22 63 |rizeHC" |&& qi("c|
|00003640| 6f 6c 6f 72 46 69 6c 6c | 22 29 20 26 20 22 2c 22 |olorFill|") & ","|
|00003650| 20 26 26 20 c2 0d 71 69 | 28 74 68 65 20 72 65 63 | && ..qi|(the rec|
|00003660| 74 20 6f 66 20 62 67 20 | 62 74 6e 20 69 29 20 26 |t of bg |btn i) &|
|00003670| 26 20 22 2c 22 20 26 20 | 71 69 28 62 61 63 6b 43 |& "," & |qi(backC|
|00003680| 6f 6c 6f 72 29 29 0d 70 | 75 74 20 69 74 65 6d 20 |olor)).p|ut item |
|00003690| 31 20 6f 66 20 74 6f 70 | 4c 65 66 74 20 6f 66 20 |1 of top|Left of |
|000036a0| 62 67 20 62 74 6e 20 69 | 20 69 6e 74 6f 20 78 0d |bg btn i| into x.|
|000036b0| 70 75 74 20 69 74 65 6d | 20 32 20 6f 66 20 74 6f |put item| 2 of to|
|000036c0| 70 4c 65 66 74 20 6f 66 | 20 62 67 20 62 74 6e 20 |pLeft of| bg btn |
|000036d0| 69 20 69 6e 74 6f 20 79 | 0d 70 75 74 20 74 68 65 |i into y|.put the|
|000036e0| 43 6d 64 20 69 6e 74 6f | 20 63 0d 70 75 74 20 71 |Cmd into| c.put q|
|000036f0| 69 28 78 2b 32 20 26 20 | 22 2c 22 20 26 20 79 2b |i(x+2 & |"," & y+|
|00003700| 32 29 20 69 6e 74 6f 20 | 69 74 65 6d 20 33 20 6f |2) into |item 3 o|
|00003710| 66 20 63 0d 64 6f 20 63 | 0d 65 6e 64 20 72 65 70 |f c.do c|.end rep|
|00003720| 65 61 74 0d 69 66 20 6a | 20 ad 20 6b 20 74 68 65 |eat.if j| . k the|
|00003730| 6e 20 67 6f 20 74 6f 20 | 74 68 69 73 20 63 64 0d |n go to |this cd.|
|00003740| 65 6e 64 20 62 6c 61 6e | 6b 43 61 72 64 73 0d 0d |end blan|kCards..|
|00003750| 6f 6e 20 63 68 65 63 6b | 46 69 72 73 74 0d 68 61 |on check|First.ha|
|00003760| 6e 64 6c 65 4d 6f 75 73 | 65 20 28 77 68 69 63 68 |ndleMous|e (which|
|00003770| 50 65 72 73 6f 6e 61 6c | 69 74 79 28 29 29 0d 65 |Personal|ity()).e|
|00003780| 6e 64 20 63 68 65 63 6b | 46 69 72 73 74 0d 0d 6f |nd check|First..o|
|00003790| 6e 20 73 65 74 50 6f 73 | 69 74 69 6f 6e 20 69 0d |n setPos|ition i.|
|000037a0| 67 6c 6f 62 61 6c 20 74 | 68 65 53 74 61 63 6b 2c |global t|heStack,|
|000037b0| 63 68 61 74 0d 69 66 20 | 74 68 65 72 65 20 69 73 |chat.if |there is|
|000037c0| 20 6e 6f 74 20 61 20 77 | 69 6e 64 6f 77 20 74 68 | not a w|indow th|
|000037d0| 65 53 74 61 63 6b 20 74 | 68 65 6e 20 65 78 69 74 |eStack t|hen exit|
|000037e0| 20 73 65 74 50 6f 73 69 | 74 69 6f 6e 0d 70 75 74 | setPosi|tion.put|
|000037f0| 20 22 50 22 20 61 66 74 | 65 72 20 63 68 61 74 0d | "P" aft|er chat.|
|00003800| 70 75 74 20 77 68 69 63 | 68 50 65 72 73 6f 6e 61 |put whic|hPersona|
|00003810| 6c 69 74 79 28 29 20 69 | 6e 74 6f 20 70 65 72 73 |lity() i|nto pers|
|00003820| 6f 6e 61 6c 69 74 79 0d | 69 66 20 69 20 3d 20 34 |onality.|if i = 4|
|00003830| 20 74 68 65 6e 0d 69 66 | 20 70 65 72 73 6f 6e 61 | then.if| persona|
|00003840| 6c 69 74 79 20 3d 20 31 | 20 74 68 65 6e 0d 70 75 |lity = 1| then.pu|
|00003850| 74 20 33 31 20 69 6e 74 | 6f 20 69 0d 65 6c 73 65 |t 31 int|o i.else|
|00003860| 20 69 66 20 70 65 72 73 | 6f 6e 61 6c 69 74 79 20 | if pers|onality |
|00003870| 3d 20 32 20 74 68 65 6e | 0d 70 75 74 20 33 32 20 |= 2 then|.put 32 |
|00003880| 69 6e 74 6f 20 69 0d 65 | 6c 73 65 20 70 61 73 73 |into i.e|lse pass|
|00003890| 20 73 65 74 50 6f 73 69 | 74 69 6f 6e 0d 65 6c 73 | setPosi|tion.els|
|000038a0| 65 0d 69 66 20 69 20 b3 | 20 35 20 74 68 65 6e 0d |e.if i .| 5 then.|
|000038b0| 69 66 20 70 65 72 73 6f | 6e 61 6c 69 74 79 20 3d |if perso|nality =|
|000038c0| 20 31 20 74 68 65 6e 0d | 70 75 74 20 35 20 69 6e | 1 then.|put 5 in|
|000038d0| 74 6f 20 69 0d 65 6c 73 | 65 20 69 66 20 70 65 72 |to i.els|e if per|
|000038e0| 73 6f 6e 61 6c 69 74 79 | 20 3d 20 32 20 74 68 65 |sonality| = 2 the|
|000038f0| 6e 0d 70 75 74 20 36 20 | 69 6e 74 6f 20 69 0d 65 |n.put 6 |into i.e|
|00003900| 6c 73 65 20 70 75 74 20 | 37 20 69 6e 74 6f 20 69 |lse put |7 into i|
|00003910| 0d 67 65 74 20 69 74 65 | 6d 20 69 20 6f 66 20 22 |.get ite|m i of "|
|00003920| 2c 2c 2c 2c 33 d0 31 38 | 2c 34 d0 31 39 2c 35 d0 |,,,,3.18|,4.19,5.|
|00003930| 32 30 22 0d 69 66 20 69 | 74 20 69 73 20 69 6e 20 |20".if i|t is in |
|00003940| 74 68 65 20 74 65 78 74 | 20 6f 66 20 77 69 6e 64 |the text| of wind|
|00003950| 6f 77 20 74 68 65 53 74 | 61 63 6b 20 74 68 65 6e |ow theSt|ack then|
|00003960| 0d 65 78 69 74 20 73 65 | 74 50 6f 73 69 74 69 6f |.exit se|tPositio|
|00003970| 6e 0d 65 6e 64 20 69 66 | 0d 65 6c 73 65 0d 69 66 |n.end if|.else.if|
|00003980| 20 70 65 72 73 6f 6e 61 | 6c 69 74 79 20 3d 20 31 | persona|lity = 1|
|00003990| 20 74 68 65 6e 0d 70 61 | 73 73 20 73 65 74 50 6f | then.pa|ss setPo|
|000039a0| 73 69 74 69 6f 6e 0d 65 | 6c 73 65 20 69 66 20 70 |sition.e|lse if p|
|000039b0| 65 72 73 6f 6e 61 6c 69 | 74 79 20 3d 20 32 20 74 |ersonali|ty = 2 t|
|000039c0| 68 65 6e 0d 69 66 20 69 | 20 3d 20 31 20 74 68 65 |hen.if i| = 1 the|
|000039d0| 6e 0d 70 75 74 20 32 20 | 69 6e 74 6f 20 69 0d 65 |n.put 2 |into i.e|
|000039e0| 6c 73 65 20 70 75 74 20 | 31 20 69 6e 74 6f 20 69 |lse put |1 into i|
|000039f0| 0d 65 6c 73 65 0d 69 66 | 20 69 20 3d 20 31 20 74 |.else.if| i = 1 t|
|00003a00| 68 65 6e 0d 70 75 74 20 | 33 20 69 6e 74 6f 20 69 |hen.put |3 into i|
|00003a10| 0d 65 6c 73 65 20 69 66 | 20 69 20 3d 20 33 20 74 |.else if| i = 3 t|
|00003a20| 68 65 6e 0d 70 75 74 20 | 31 20 69 6e 74 6f 20 69 |hen.put |1 into i|
|00003a30| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 69 66 0d 65 |.end if.|end if.e|
|00003a40| 6e 64 20 69 66 0d 65 6e | 64 20 69 66 0d 73 65 74 |nd if.en|d if.set|
|00003a50| 57 69 6e 54 65 78 74 20 | 22 50 6f 73 69 74 69 6f |WinText |"Positio|
|00003a60| 6e 22 2c 20 28 22 4c 69 | 66 65 74 69 6d 65 22 20 |n", ("Li|fetime" |
|00003a70| 26 26 20 69 29 0d 65 6e | 64 20 73 65 74 50 6f 73 |&& i).en|d setPos|
|00003a80| 69 74 69 6f 6e 0d 0d 6f | 6e 20 73 65 74 43 61 72 |ition..o|n setCar|
|00003a90| 64 20 74 68 65 43 61 72 | 64 0d 67 6c 6f 62 61 6c |d theCar|d.global|
|00003aa0| 20 62 69 74 44 65 70 74 | 68 2c 69 63 6f 6e 44 65 | bitDept|h,iconDe|
|00003ab0| 63 6b 2c 70 69 63 74 75 | 72 65 44 65 63 6b 2c 62 |ck,pictu|reDeck,b|
|00003ac0| 61 63 6b 43 6f 6c 6f 72 | 0d 70 75 74 20 63 61 72 |ackColor|.put car|
|00003ad0| 64 4e 61 6d 65 28 74 68 | 65 43 61 72 64 29 20 69 |dName(th|eCard) i|
|00003ae0| 6e 74 6f 20 63 0d 69 66 | 20 22 44 69 6d 6d 65 64 |nto c.if| "Dimmed|
|00003af0| 22 20 69 73 20 69 6e 20 | 63 20 61 6e 64 20 74 68 |" is in |c and th|
|00003b00| 65 43 61 72 64 20 3c 20 | 34 20 74 68 65 6e 20 65 |eCard < |4 then e|
|00003b10| 78 69 74 20 73 65 74 43 | 61 72 64 0d 70 75 74 20 |xit setC|ard.put |
|00003b20| 69 74 65 6d 20 31 20 6f | 66 20 74 6f 70 4c 65 66 |item 1 o|f topLef|
|00003b30| 74 20 6f 66 20 62 67 20 | 62 74 6e 20 28 74 68 65 |t of bg |btn (the|
|00003b40| 43 61 72 64 29 20 69 6e | 74 6f 20 78 0d 70 75 74 |Card) in|to x.put|
|00003b50| 20 69 74 65 6d 20 32 20 | 6f 66 20 74 6f 70 4c 65 | item 2 |of topLe|
|00003b60| 66 74 20 6f 66 20 62 67 | 20 62 74 6e 20 28 74 68 |ft of bg| btn (th|
|00003b70| 65 43 61 72 64 29 20 69 | 6e 74 6f 20 79 0d 69 66 |eCard) i|nto y.if|
|00003b80| 20 62 69 74 44 65 70 74 | 68 20 3e 20 31 20 61 6e | bitDept|h > 1 an|
|00003b90| 64 20 62 69 74 44 65 70 | 74 68 20 3c 20 38 20 6f |d bitDep|th < 8 o|
|00003ba0| 72 20 22 42 26 57 22 20 | 69 73 20 69 6e 20 28 69 |r "B&W" |is in (i|
|00003bb0| 63 6f 6e 44 65 63 6b 20 | 26 20 70 69 63 74 75 72 |conDeck |& pictur|
|00003bc0| 65 44 65 63 6b 29 20 74 | 68 65 6e 0d 70 75 74 20 |eDeck) t|hen.put |
|00003bd0| 78 2b 34 20 26 20 22 2c | 22 20 26 20 79 2b 34 20 |x+4 & ",|" & y+4 |
|00003be0| 26 20 22 2c 22 20 26 20 | 22 78 2b 33 32 22 20 26 |& "," & |"x+32" &|
|00003bf0| 20 22 2c 22 20 26 20 79 | 2b 34 32 20 69 6e 74 6f | "," & y|+42 into|
|00003c00| 20 74 68 65 52 65 63 74 | 0d 63 6f 6c 6f 72 69 7a | theRect|.coloriz|
|00003c10| 65 48 43 20 22 45 72 61 | 73 65 22 2c 74 68 65 52 |eHC "Era|se",theR|
|00003c20| 65 63 74 0d 65 6e 64 20 | 69 66 0d 70 75 74 20 22 |ect.end |if.put "|
|00003c30| 63 6f 6c 6f 72 69 7a 65 | 48 43 22 20 26 26 20 71 |colorize|HC" && q|
|00003c40| 69 28 22 41 64 64 22 29 | 20 26 20 22 2c 22 20 26 |i("Add")| & "," &|
|00003c50| 26 20 71 69 28 63 29 20 | 26 20 22 2c 22 20 26 26 |& qi(c) |& "," &&|
|00003c60| 20 c2 0d 71 69 28 78 2b | 32 20 26 20 22 2c 22 20 | ..qi(x+|2 & "," |
|00003c70| 26 20 79 2b 32 29 20 69 | 6e 74 6f 20 74 68 65 43 |& y+2) i|nto theC|
|00003c80| 6d 64 0d 69 66 20 62 69 | 74 44 65 70 74 68 20 3e |md.if bi|tDepth >|
|00003c90| 20 32 20 74 68 65 6e 0d | 69 66 20 22 44 69 6d 6d | 2 then.|if "Dimm|
|00003ca0| 65 64 22 20 69 73 20 69 | 6e 20 63 20 74 68 65 6e |ed" is i|n c then|
|00003cb0| 0d 64 6f 20 28 22 63 6f | 6c 6f 72 69 7a 65 48 43 |.do ("co|lorizeHC|
|00003cc0| 22 20 26 26 20 71 69 28 | 22 63 6f 6c 6f 72 46 69 |" && qi(|"colorFi|
|00003cd0| 6c 6c 22 29 20 26 20 22 | 2c 22 20 26 26 20 c2 0d |ll") & "|," && ..|
|00003ce0| 71 69 28 74 68 65 20 72 | 65 63 74 20 6f 66 20 62 |qi(the r|ect of b|
|00003cf0| 67 20 62 75 74 74 6f 6e | 20 74 68 65 43 61 72 64 |g button| theCard|
|00003d00| 29 20 26 26 20 22 2c 22 | 20 26 20 71 69 28 62 61 |) && ","| & qi(ba|
|00003d10| 63 6b 43 6f 6c 6f 72 29 | 29 0d 70 75 74 20 22 2c |ckColor)|).put ",|
|00003d20| 2c 22 20 26 26 20 71 69 | 28 22 41 64 4d 69 6e 22 |," && qi|("AdMin"|
|00003d30| 29 20 61 66 74 65 72 20 | 74 68 65 43 6d 64 0d 65 |) after |theCmd.e|
|00003d40| 6c 73 65 20 70 75 74 20 | 22 2c 2c 22 20 26 26 20 |lse put |",," && |
|00003d50| 71 69 28 22 54 72 61 6e | 73 70 61 72 65 6e 74 22 |qi("Tran|sparent"|
|00003d60| 29 20 61 66 74 65 72 20 | 74 68 65 43 6d 64 0d 65 |) after |theCmd.e|
|00003d70| 6e 64 20 69 66 0d 64 6f | 20 74 68 65 43 6d 64 0d |nd if.do| theCmd.|
|00003d80| 69 66 20 28 62 69 74 44 | 65 70 74 68 20 3c 20 32 |if (bitD|epth < 2|
|00003d90| 20 61 6e 64 20 69 63 6f | 6e 44 65 63 6b 20 69 73 | and ico|nDeck is|
|00003da0| 20 6e 6f 74 20 65 6d 70 | 74 79 29 20 61 6e 64 20 | not emp|ty) and |
|00003db0| 28 22 42 26 57 22 20 69 | 73 20 6e 6f 74 20 69 6e |("B&W" i|s not in|
|00003dc0| 20 28 69 63 6f 6e 44 65 | 63 6b 20 26 20 70 69 63 | (iconDe|ck & pic|
|00003dd0| 74 75 72 65 44 65 63 6b | 29 29 0d 74 68 65 6e 20 |tureDeck|)).then |
|00003de0| 64 6f 20 28 61 64 64 53 | 75 69 74 65 49 63 6f 6e |do (addS|uiteIcon|
|00003df0| 20 28 74 68 65 43 61 72 | 64 2c 78 2c 79 29 29 0d | (theCar|d,x,y)).|
|00003e00| 65 6e 64 20 73 65 74 43 | 61 72 64 0d 0d 6f 6e 20 |end setC|ard..on |
|00003e10| 75 70 64 61 74 65 57 69 | 6e 64 6f 77 0d 67 6c 6f |updateWi|ndow.glo|
|00003e20| 62 61 6c 20 63 79 63 6c | 65 53 74 61 72 74 2c 63 |bal cycl|eStart,c|
|00003e30| 79 63 6c 65 45 6e 64 2c | 74 68 65 43 75 72 72 65 |ycleEnd,|theCurre|
|00003e40| 6e 74 59 65 61 72 2c 6c | 69 6e 65 4e 6f 0d 69 66 |ntYear,l|ineNo.if|
|00003e50| 20 66 6c 64 20 31 20 69 | 73 20 6e 6f 74 20 65 6d | fld 1 i|s not em|
|00003e60| 70 74 79 20 74 68 65 6e | 20 70 61 73 73 20 75 70 |pty then| pass up|
|00003e70| 64 61 74 65 57 69 6e 64 | 6f 77 0d 70 75 74 20 6c |dateWind|ow.put l|
|00003e80| 69 6e 65 20 6c 69 6e 65 | 4e 6f 20 6f 66 20 63 79 |ine line|No of cy|
|00003e90| 63 6c 65 53 74 61 72 74 | 20 69 6e 74 6f 20 63 73 |cleStart| into cs|
|00003ea0| 0d 70 75 74 20 63 73 20 | 2d 20 31 20 69 6e 74 6f |.put cs |- 1 into|
|00003eb0| 20 66 69 72 73 74 59 65 | 61 72 0d 70 75 74 20 69 | firstYe|ar.put i|
|00003ec0| 74 65 6d 20 32 20 6f 66 | 20 6c 69 6e 65 20 31 20 |tem 2 of| line 1 |
|00003ed0| 6f 66 20 69 20 69 6e 74 | 6f 20 63 65 0d 70 75 74 |of i int|o ce.put|
|00003ee0| 20 6c 69 6e 65 20 6c 69 | 6e 65 4e 6f 20 6f 66 20 | line li|neNo of |
|00003ef0| 63 79 63 6c 65 45 6e 64 | 20 69 6e 74 6f 20 63 65 |cycleEnd| into ce|
|00003f00| 0d 70 75 74 20 63 65 20 | 2d 20 63 73 20 69 6e 74 |.put ce |- cs int|
|00003f10| 6f 20 63 79 63 6c 65 4c | 65 6e 67 74 68 0d 70 75 |o cycleL|ength.pu|
|00003f20| 74 20 6c 69 6e 65 20 32 | 20 6f 66 20 69 20 69 6e |t line 2| of i in|
|00003f30| 74 6f 20 63 79 63 6c 65 | 43 61 72 64 73 0d 70 75 |to cycle|Cards.pu|
|00003f40| 74 20 6c 69 6e 65 20 6c | 69 6e 65 4e 6f 20 6f 66 |t line l|ineNo of|
|00003f50| 20 74 68 65 43 75 72 72 | 65 6e 74 59 65 61 72 20 | theCurr|entYear |
|00003f60| 69 6e 74 6f 20 63 79 0d | 6c 6f 63 6b 20 73 63 72 |into cy.|lock scr|
|00003f70| 65 65 6e 0d 77 61 69 74 | 43 75 72 73 6f 72 0d 72 |een.wait|Cursor.r|
|00003f80| 65 70 65 61 74 20 77 69 | 74 68 20 6a 20 3d 20 31 |epeat wi|th j = 1|
|00003f90| 20 74 6f 20 28 63 79 63 | 6c 65 4c 65 6e 67 74 68 | to (cyc|leLength|
|00003fa0| 2b 31 29 0d 70 75 74 20 | 28 66 69 72 73 74 59 65 |+1).put |(firstYe|
|00003fb0| 61 72 20 2b 20 6a 29 20 | 69 6e 74 6f 20 66 6c 64 |ar + j) |into fld|
|00003fc0| 20 6a 0d 62 6c 61 6e 6b | 43 61 72 64 73 20 22 22 | j.blank|Cards ""|
|00003fd0| 2c 28 6a 2b 34 29 2c 34 | 0d 65 6e 64 20 72 65 70 |,(j+4),4|.end rep|
|00003fe0| 65 61 74 0d 69 66 20 28 | 28 63 79 20 b3 20 63 73 |eat.if (|(cy . cs|
|00003ff0| 29 20 61 6e 64 20 28 63 | 79 20 b2 20 63 65 29 29 |) and (c|y . ce))|
|00004000| 20 74 68 65 6e 0d 70 75 | 74 20 28 28 63 79 2d 63 | then.pu|t ((cy-c|
|00004010| 73 29 2b 31 29 20 69 6e | 74 6f 20 77 68 69 63 68 |s)+1) in|to which|
|00004020| 46 69 65 6c 64 0d 73 65 | 74 20 74 68 65 20 74 65 |Field.se|t the te|
|00004030| 78 74 53 74 79 6c 65 20 | 6f 66 20 66 6c 64 20 77 |xtStyle |of fld w|
|00004040| 68 69 63 68 46 69 65 6c | 64 20 74 6f 20 22 62 6f |hichFiel|d to "bo|
|00004050| 6c 64 22 0d 65 6e 64 20 | 69 66 0d 69 66 20 6c 65 |ld".end |if.if le|
|00004060| 6e 67 74 68 28 66 6c 64 | 20 22 54 69 74 6c 65 22 |ngth(fld| "Title"|
|00004070| 29 20 3c 20 32 20 74 68 | 65 6e 0d 70 75 74 20 77 |) < 2 th|en.put w|
|00004080| 68 69 63 68 50 65 72 73 | 6f 6e 61 6c 69 74 79 28 |hichPers|onality(|
|00004090| 29 20 69 6e 74 6f 20 70 | 0d 69 66 20 70 20 3d 20 |) into p|.if p = |
|000040a0| 31 20 74 68 65 6e 0d 67 | 65 74 20 33 34 32 0d 65 |1 then.g|et 342.e|
|000040b0| 6c 73 65 20 69 66 20 70 | 20 3d 20 32 20 74 68 65 |lse if p| = 2 the|
|000040c0| 6e 0d 67 65 74 20 33 31 | 39 0d 65 6c 73 65 20 67 |n.get 31|9.else g|
|000040d0| 65 74 20 32 39 38 0d 73 | 65 74 20 74 68 65 20 6c |et 298.s|et the l|
|000040e0| 6f 63 20 6f 66 20 66 6c | 64 20 22 54 69 74 6c 65 |oc of fl|d "Title|
|000040f0| 22 20 74 6f 20 28 69 74 | 20 26 20 22 2c 31 36 22 |" to (it| & ",16"|
|00004100| 29 0d 70 75 74 20 22 50 | 45 52 53 4f 4e 41 4c 49 |).put "P|ERSONALI|
|00004110| 54 59 22 20 69 6e 74 6f | 20 66 6c 64 20 22 54 69 |TY" into| fld "Ti|
|00004120| 74 6c 65 22 0d 65 6e 64 | 20 69 66 0d 70 61 73 73 |tle".end| if.pass|
|00004130| 20 75 70 64 61 74 65 57 | 69 6e 64 6f 77 0d 65 6e | updateW|indow.en|
|00004140| 64 20 75 70 64 61 74 65 | 57 69 6e 64 6f 77 0d 0d |d update|Window..|
|00004150| 6f 6e 20 6d 6f 75 73 65 | 45 6e 74 65 72 0d 67 6c |on mouse|Enter.gl|
|00004160| 6f 62 61 6c 20 62 61 6c | 6c 6f 6f 6e 73 4f 6e 0d |obal bal|loonsOn.|
|00004170| 69 66 20 6e 6f 74 28 62 | 61 6c 6c 6f 6f 6e 73 4f |if not(b|alloonsO|
|00004180| 6e 20 3d 20 22 74 72 75 | 65 22 29 20 74 68 65 6e |n = "tru|e") then|
|00004190| 20 65 78 69 74 20 6d 6f | 75 73 65 45 6e 74 65 72 | exit mo|useEnter|
|000041a0| 0d 66 75 6c 6c 42 61 6c | 6c 6f 6f 6e 73 20 22 69 |.fullBal|loons "i|
|000041b0| 73 53 68 6f 77 69 6e 67 | 22 0d 69 66 20 74 68 65 |sShowing|".if the|
|000041c0| 20 72 65 73 75 6c 74 20 | 69 73 20 74 72 75 65 20 | result |is true |
|000041d0| 74 68 65 6e 0d 66 75 6c | 6c 42 61 6c 6c 6f 6f 6e |then.ful|lBalloon|
|000041e0| 73 20 22 72 65 6d 6f 76 | 65 22 0d 6d 6f 75 73 65 |s "remov|e".mouse|
|000041f0| 57 69 74 68 69 6e 0d 65 | 6e 64 20 69 66 0d 65 6e |Within.e|nd if.en|
|00004200| 64 20 6d 6f 75 73 65 45 | 6e 74 65 72 0d 0d 6f 6e |d mouseE|nter..on|
|00004210| 20 6d 6f 75 73 65 4c 65 | 61 76 65 0d 67 6c 6f 62 | mouseLe|ave.glob|
|00004220| 61 6c 20 62 61 6c 6c 6f | 6f 6e 73 4f 6e 0d 69 66 |al ballo|onsOn.if|
|00004230| 20 6e 6f 74 28 62 61 6c | 6c 6f 6f 6e 73 4f 6e 20 | not(bal|loonsOn |
|00004240| 3d 20 22 74 72 75 65 22 | 29 20 74 68 65 6e 20 65 |= "true"|) then e|
|00004250| 78 69 74 20 6d 6f 75 73 | 65 4c 65 61 76 65 0d 66 |xit mous|eLeave.f|
|00004260| 75 6c 6c 42 61 6c 6c 6f | 6f 6e 73 20 22 69 73 53 |ullBallo|ons "isS|
|00004270| 68 6f 77 69 6e 67 22 0d | 69 66 20 74 68 65 20 72 |howing".|if the r|
|00004280| 65 73 75 6c 74 20 69 73 | 20 74 72 75 65 0d 74 68 |esult is| true.th|
|00004290| 65 6e 20 66 75 6c 6c 42 | 61 6c 6c 6f 6f 6e 73 20 |en fullB|alloons |
|000042a0| 22 72 65 6d 6f 76 65 22 | 0d 65 6e 64 20 6d 6f 75 |"remove"|.end mou|
|000042b0| 73 65 4c 65 61 76 65 0d | 0d 6f 6e 20 6d 6f 75 73 |seLeave.|.on mous|
|000042c0| 65 57 69 74 68 69 6e 0d | 67 6c 6f 62 61 6c 20 62 |eWithin.|global b|
|000042d0| 61 6c 6c 6f 6f 6e 73 4f | 6e 2c 70 6f 73 69 74 69 |alloonsO|n,positi|
|000042e0| 6f 6e 73 0d 2d 2d 20 c6 | ca 73 68 6f 75 6c 64 20 |ons.-- .|.should |
|000042f0| 77 65 20 62 65 20 68 65 | 72 65 3f 0d 69 66 20 6e |we be he|re?.if n|
|00004300| 6f 74 28 62 61 6c 6c 6f | 6f 6e 73 4f 6e 20 3d 20 |ot(ballo|onsOn = |
|00004310| 22 74 72 75 65 22 29 20 | 74 68 65 6e 20 65 78 69 |"true") |then exi|
|00004320| 74 20 6d 6f 75 73 65 57 | 69 74 68 69 6e 0d 69 66 |t mouseW|ithin.if|
|00004330| 20 22 62 75 74 74 6f 6e | 22 20 69 73 20 6e 6f 74 | "button|" is not|
|00004340| 20 69 6e 20 74 68 65 20 | 74 61 72 67 65 74 20 6f | in the |target o|
|00004350| 72 20 73 79 73 74 65 6d | 56 65 72 73 69 6f 6e 20 |r system|Version |
|00004360| 3c 20 37 20 74 68 65 6e | 20 65 78 69 74 20 6d 6f |< 7 then| exit mo|
|00004370| 75 73 65 57 69 74 68 69 | 6e 0d 66 75 6c 6c 42 61 |useWithi|n.fullBa|
|00004380| 6c 6c 6f 6f 6e 73 20 22 | 69 73 4f 6e 22 0d 69 66 |lloons "|isOn".if|
|00004390| 20 74 68 65 20 72 65 73 | 75 6c 74 20 69 73 20 6e | the res|ult is n|
|000043a0| 6f 74 20 54 52 55 45 20 | 74 68 65 6e 20 65 78 69 |ot TRUE |then exi|
|000043b0| 74 20 6d 6f 75 73 65 57 | 69 74 68 69 6e 0d 66 75 |t mouseW|ithin.fu|
|000043c0| 6c 6c 42 61 6c 6c 6f 6f | 6e 73 20 22 69 73 53 68 |llBalloo|ns "isSh|
|000043d0| 6f 77 69 6e 67 22 0d 69 | 66 20 74 68 65 20 72 65 |owing".i|f the re|
|000043e0| 73 75 6c 74 20 69 73 20 | 54 52 55 45 20 74 68 65 |sult is |TRUE the|
|000043f0| 6e 20 65 78 69 74 20 6d | 6f 75 73 65 57 69 74 68 |n exit m|ouseWith|
|00004400| 69 6e 0d 70 75 74 20 74 | 68 65 20 6e 75 6d 62 65 |in.put t|he numbe|
|00004410| 72 20 6f 66 20 74 68 65 | 20 74 61 72 67 65 74 20 |r of the| target |
|00004420| 69 6e 74 6f 20 69 0d 69 | 66 20 69 20 3c 20 31 20 |into i.i|f i < 1 |
|00004430| 6f 72 20 69 20 3e 20 70 | 6f 73 69 74 69 6f 6e 73 |or i > p|ositions|
|00004440| 20 74 68 65 6e 0d 73 75 | 62 74 72 61 63 74 20 70 | then.su|btract p|
|00004450| 6f 73 69 74 69 6f 6e 73 | 20 66 72 6f 6d 20 69 0d |ositions| from i.|
|00004460| 69 66 20 69 20 3c 20 31 | 20 6f 72 20 69 20 3e 20 |if i < 1| or i > |
|00004470| 70 6f 73 69 74 69 6f 6e | 73 0d 74 68 65 6e 20 65 |position|s.then e|
|00004480| 78 69 74 20 6d 6f 75 73 | 65 57 69 74 68 69 6e 0d |xit mous|eWithin.|
|00004490| 65 6e 64 20 69 66 0d 70 | 75 74 20 67 65 74 52 28 |end if.p|ut getR(|
|000044a0| 2c 69 29 20 69 6e 74 6f | 20 78 0d 69 66 20 78 20 |,i) into| x.if x |
|000044b0| 3d 20 22 3f 20 3f 22 20 | 74 68 65 6e 20 65 78 69 |= "? ?" |then exi|
|000044c0| 74 20 6d 6f 75 73 65 57 | 69 74 68 69 6e 0d 2d 2d |t mouseW|ithin.--|
|000044d0| 20 c6 20 6f 6b 61 79 2c | 20 73 6f 20 6e 6f 77 20 | . okay,| so now |
|000044e0| 77 68 61 74 3f 0d 67 6c | 6f 62 61 6c 20 6c 61 72 |what?.gl|obal lar|
|000044f0| 67 65 44 65 63 6b 2c 70 | 69 63 74 75 72 65 4e 61 |geDeck,p|ictureNa|
|00004500| 6d 65 0d 70 75 74 20 22 | 20 6f 66 22 20 61 66 74 |me.put "| of" aft|
|00004510| 65 72 20 77 6f 72 64 20 | 31 20 6f 66 20 78 0d 70 |er word |1 of x.p|
|00004520| 75 74 20 72 65 74 75 72 | 6e 20 26 20 72 65 74 75 |ut retur|n & retu|
|00004530| 72 6e 20 26 20 22 54 68 | 69 73 20 63 61 72 64 20 |rn & "Th|is card |
|00004540| 72 65 70 72 65 73 65 6e | 74 73 20 22 20 61 66 74 |represen|ts " aft|
|00004550| 65 72 20 78 0d 70 75 74 | 20 67 65 74 44 61 72 6b |er x.put| getDark|
|00004560| 28 29 20 69 6e 74 6f 20 | 74 68 69 73 43 61 72 64 |() into |thisCard|
|00004570| 0d 69 66 20 69 20 3c 20 | 34 20 74 68 65 6e 0d 70 |.if i < |4 then.p|
|00004580| 75 74 20 77 68 69 63 68 | 50 65 72 73 6f 6e 61 6c |ut which|Personal|
|00004590| 69 74 79 28 29 20 69 6e | 74 6f 20 70 65 72 73 6f |ity() in|to perso|
|000045a0| 6e 61 6c 69 74 79 0d 69 | 66 20 70 65 72 73 6f 6e |nality.i|f person|
|000045b0| 61 6c 69 74 79 20 3d 20 | 31 20 61 6e 64 20 69 20 |ality = |1 and i |
|000045c0| 3d 20 31 20 74 68 65 6e | 0d 70 75 74 20 22 79 6f |= 1 then|.put "yo|
|000045d0| 75 72 20 6f 76 65 72 61 | 6c 6c 20 70 65 72 73 6f |ur overa|ll perso|
|000045e0| 6e 61 6c 69 74 79 22 20 | 69 6e 74 6f 20 74 0d 65 |nality" |into t.e|
|000045f0| 6c 73 65 0d 69 66 20 70 | 65 72 73 6f 6e 61 6c 69 |lse.if p|ersonali|
|00004600| 74 79 20 3d 20 32 20 74 | 68 65 6e 0d 69 66 20 69 |ty = 2 t|hen.if i|
|00004610| 20 3d 20 31 20 74 68 65 | 6e 0d 70 75 74 20 32 20 | = 1 the|n.put 2 |
|00004620| 69 6e 74 6f 20 69 0d 65 | 6c 73 65 20 70 75 74 20 |into i.e|lse put |
|00004630| 31 20 69 6e 74 6f 20 69 | 0d 65 6c 73 65 20 69 66 |1 into i|.else if|
|00004640| 20 70 65 72 73 6f 6e 61 | 6c 69 74 79 20 3d 20 33 | persona|lity = 3|
|00004650| 20 74 68 65 6e 0d 69 66 | 20 69 20 3d 20 31 20 74 | then.if| i = 1 t|
|00004660| 68 65 6e 0d 70 75 74 20 | 33 20 69 6e 74 6f 20 69 |hen.put |3 into i|
|00004670| 0d 65 6c 73 65 20 69 66 | 20 69 20 3d 20 33 20 74 |.else if| i = 3 t|
|00004680| 68 65 6e 0d 70 75 74 20 | 31 20 69 6e 74 6f 20 69 |hen.put |1 into i|
|00004690| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 69 66 0d 70 |.end if.|end if.p|
|000046a0| 75 74 20 69 74 65 6d 20 | 69 20 6f 66 20 c2 0d 28 |ut item |i of ..(|
|000046b0| 22 79 6f 75 72 20 6f 75 | 74 77 61 72 64 20 65 78 |"your ou|tward ex|
|000046c0| 70 72 65 73 73 69 6f 6e | 20 74 6f 20 74 68 65 20 |pression| to the |
|000046d0| 77 6f 72 6c 64 2c 22 20 | 26 20 c2 0d 22 74 68 65 |world," |& .."the|
|000046e0| 20 71 75 61 6c 69 74 79 | 20 6f 66 20 79 6f 75 72 | quality| of your|
|000046f0| 20 69 6e 6e 65 72 20 73 | 70 69 72 69 74 75 61 6c | inner s|piritual|
|00004700| 20 72 65 73 6f 75 72 63 | 65 73 2c 22 20 26 20 c2 | resourc|es," & .|
|00004710| 0d 22 74 68 65 20 71 75 | 61 6c 69 74 79 20 6f 66 |."the qu|ality of|
|00004720| 20 79 6f 75 72 20 63 72 | 65 61 74 69 76 69 74 79 | your cr|eativity|
|00004730| 22 29 20 69 6e 74 6f 20 | 74 0d 65 6e 64 20 69 66 |") into |t.end if|
|00004740| 0d 70 75 74 20 74 20 61 | 66 74 65 72 20 78 0d 65 |.put t a|fter x.e|
|00004750| 6c 73 65 20 69 66 20 69 | 20 3e 20 33 20 74 68 65 |lse if i| > 3 the|
|00004760| 6e 0d 70 75 74 20 22 69 | 6e 66 6c 75 65 6e 63 65 |n.put "i|nfluence|
|00004770| 73 20 6f 76 65 72 20 74 | 68 65 20 22 20 61 66 74 |s over t|he " aft|
|00004780| 65 72 20 78 0d 69 66 20 | 69 20 3e 20 34 20 74 68 |er x.if |i > 4 th|
|00004790| 65 6e 0d 67 65 74 20 22 | 67 72 6f 77 74 68 20 70 |en.get "|growth p|
|000047a0| 65 72 69 6f 64 22 0d 65 | 6c 73 65 20 67 65 74 20 |eriod".e|lse get |
|000047b0| 22 65 6e 74 69 72 65 20 | 63 79 63 6c 65 22 0d 70 |"entire |cycle".p|
|000047c0| 75 74 20 69 74 20 26 26 | 20 63 61 6c 63 44 61 74 |ut it &&| calcDat|
|000047d0| 65 28 69 29 20 61 66 74 | 65 72 20 78 0d 65 6e 64 |e(i) aft|er x.end|
|000047e0| 20 69 66 0d 69 66 20 69 | 20 ad 20 74 68 69 73 43 | if.if i| . thisC|
|000047f0| 61 72 64 20 74 68 65 6e | 0d 70 75 74 20 22 2e 20 |ard then|.put ". |
|00004800| 20 54 6f 20 64 69 73 70 | 6c 61 79 20 74 68 65 73 | To disp|lay thes|
|00004810| 65 20 69 6e 66 6c 75 65 | 6e 63 65 73 2c 20 63 6c |e influe|nces, cl|
|00004820| 69 63 6b 20 68 65 72 65 | 2e 22 20 61 66 74 65 72 |ick here|." after|
|00004830| 20 78 0d 65 6c 73 65 20 | 70 75 74 20 22 2e 20 20 | x.else |put ". |
|00004840| 54 68 69 73 20 63 61 72 | 64 20 69 73 20 68 69 6c |This car|d is hil|
|00004850| 69 67 68 74 65 64 20 62 | 65 63 61 75 73 65 20 69 |ighted b|ecause i|
|00004860| 74 20 69 73 20 74 68 65 | 20 63 75 72 72 65 6e 74 |t is the| current|
|00004870| 20 63 61 72 64 2e 22 20 | 61 66 74 65 72 20 78 0d | card." |after x.|
|00004880| 69 66 20 6c 65 6e 67 74 | 68 28 6c 61 72 67 65 44 |if lengt|h(largeD|
|00004890| 65 63 6b 29 20 3e 20 32 | 20 61 6e 64 20 6c 65 6e |eck) > 2| and len|
|000048a0| 67 74 68 28 70 69 63 74 | 75 72 65 4e 61 6d 65 29 |gth(pict|ureName)|
|000048b0| 20 3c 20 32 0d 74 68 65 | 6e 20 70 75 74 20 22 20 | < 2.the|n put " |
|000048c0| 20 54 6f 20 64 69 73 70 | 6c 61 79 20 74 68 65 20 | To disp|lay the |
|000048d0| 6c 61 72 67 65 20 76 65 | 72 73 69 6f 6e 20 6f 66 |large ve|rsion of|
|000048e0| 20 74 68 69 73 20 63 61 | 72 64 2c 20 64 6f 75 62 | this ca|rd, doub|
|000048f0| 6c 65 2d 63 6c 69 63 6b | 20 69 74 2e 22 20 61 66 |le-click| it." af|
|00004900| 74 65 72 20 78 0d 46 75 | 6c 6c 42 61 6c 6c 6f 6f |ter x.Fu|llBalloo|
|00004910| 6e 73 20 22 73 68 6f 77 | 44 69 72 65 63 74 22 2c |ns "show|Direct",|
|00004920| 78 0d 65 6e 64 20 6d 6f | 75 73 65 57 69 74 68 69 |x.end mo|useWithi|
|00004930| 6e 0d 0d 6f 6e 20 75 70 | 64 61 74 65 59 65 61 72 |n..on up|dateYear|
|00004940| 73 0d 67 6c 6f 62 61 6c | 20 63 79 63 6c 65 53 74 |s.global| cycleSt|
|00004950| 61 72 74 2c 63 79 63 6c | 65 45 6e 64 2c 6c 69 6e |art,cycl|eEnd,lin|
|00004960| 65 4e 6f 0d 70 75 74 20 | 6c 69 6e 65 20 6c 69 6e |eNo.put |line lin|
|00004970| 65 4e 6f 20 6f 66 20 63 | 79 63 6c 65 53 74 61 72 |eNo of c|ycleStar|
|00004980| 74 20 69 6e 74 6f 20 73 | 0d 70 75 74 20 6c 69 6e |t into s|.put lin|
|00004990| 65 20 6c 69 6e 65 4e 6f | 20 6f 66 20 63 79 63 6c |e lineNo| of cycl|
|000049a0| 65 45 6e 64 20 69 6e 74 | 6f 20 65 0d 70 75 74 20 |eEnd int|o e.put |
|000049b0| 65 20 2d 20 73 20 69 6e | 74 6f 20 6c 0d 72 65 70 |e - s in|to l.rep|
|000049c0| 65 61 74 20 77 69 74 68 | 20 69 20 3d 20 31 20 74 |eat with| i = 1 t|
|000049d0| 6f 20 28 6c 2b 31 29 0d | 70 75 74 20 28 73 20 2b |o (l+1).|put (s +|
|000049e0| 20 69 20 2d 31 29 20 69 | 6e 74 6f 20 66 6c 64 20 | i -1) i|nto fld |
|000049f0| 69 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 65 6e 64 |i.end re|peat.end|
|00004a00| 20 75 70 64 61 74 65 59 | 65 61 72 73 0d 0d 0d 2d | updateY|ears...-|
|00004a10| 2d 20 a5 20 46 55 4e 43 | 54 49 4f 4e 53 0d 0d 66 |- . FUNC|TIONS..f|
|00004a20| 75 6e 63 74 69 6f 6e 20 | 70 65 72 73 6f 6e 61 6c |unction |personal|
|00004a30| 69 74 79 20 62 0d 2d 2d | 20 43 6f 70 79 72 69 67 |ity b.--| Copyrig|
|00004a40| 68 74 20 a9 20 31 39 39 | 33 20 53 69 6d 6f 6e 20 |ht . 199|3 Simon |
|00004a50| 50 6f 69 73 73 6f 6e 2e | 20 41 6c 6c 20 72 69 67 |Poisson.| All rig|
|00004a60| 68 74 73 20 72 65 73 65 | 72 76 65 64 2e 0d 70 75 |hts rese|rved..pu|
|00004a70| 74 20 28 22 30 2c 49 2c | 49 49 2c 49 49 49 2c 49 |t ("0,I,|II,III,I|
|00004a80| 56 2c 56 2c 56 49 2c 56 | 49 49 2c 56 49 49 49 2c |V,V,VI,V|II,VIII,|
|00004a90| 49 58 2c 58 2c 58 49 2c | 58 49 49 2c 58 49 49 49 |IX,X,XI,|XII,XIII|
|00004aa0| 2c 58 49 56 2c 58 56 2c | 58 56 49 2c 22 20 26 20 |,XIV,XV,|XVI," & |
|00004ab0| c2 0d 22 58 56 49 49 2c | 58 56 49 49 49 2c 58 49 |.."XVII,|XVIII,XI|
|00004ac0| 58 2c 58 58 2c 58 58 49 | 22 29 20 69 6e 74 6f 20 |X,XX,XXI|") into |
|00004ad0| 74 0d 70 75 74 20 69 74 | 65 6d 20 31 20 6f 66 20 |t.put it|em 1 of |
|00004ae0| 62 20 69 6e 74 6f 20 74 | 65 6d 70 59 65 61 72 0d |b into t|empYear.|
|00004af0| 70 75 74 20 69 74 65 6d | 20 32 20 6f 66 20 62 20 |put item| 2 of b |
|00004b00| 69 6e 74 6f 20 74 65 6d | 70 4d 6f 6e 74 68 0d 70 |into tem|pMonth.p|
|00004b10| 75 74 20 69 74 65 6d 20 | 33 20 6f 66 20 62 20 69 |ut item |3 of b i|
|00004b20| 6e 74 6f 20 74 65 6d 70 | 44 61 79 0d 70 75 74 20 |nto temp|Day.put |
|00004b30| 65 6e 64 4e 75 6d 62 65 | 72 28 74 65 6d 70 44 61 |endNumbe|r(tempDa|
|00004b40| 79 20 2b 20 74 65 6d 70 | 4d 6f 6e 74 68 20 2b 20 |y + temp|Month + |
|00004b50| 74 65 6d 70 59 65 61 72 | 29 20 69 6e 74 6f 20 6e |tempYear|) into n|
|00004b60| 31 0d 70 75 74 20 65 6d | 70 74 79 20 69 6e 74 6f |1.put em|pty into|
|00004b70| 20 6e 32 0d 70 75 74 20 | 65 6d 70 74 79 20 69 6e | n2.put |empty in|
|00004b80| 74 6f 20 6e 33 0d 62 6c | 61 6e 6b 43 61 72 64 73 |to n3.bl|ankCards|
|00004b90| 20 22 44 69 6d 6d 65 64 | 22 2c 31 0d 69 66 20 6e | "Dimmed|",1.if n|
|00004ba0| 31 20 3e 20 32 31 20 74 | 68 65 6e 20 70 75 74 20 |1 > 21 t|hen put |
|00004bb0| 65 6e 64 4e 75 6d 62 65 | 72 20 28 6e 31 29 20 69 |endNumbe|r (n1) i|
|00004bc0| 6e 74 6f 20 6e 31 0d 70 | 75 74 20 28 69 74 65 6d |nto n1.p|ut (item|
|00004bd0| 20 28 28 6e 31 29 20 2b | 20 31 29 20 6f 66 20 74 | ((n1) +| 1) of t|
|00004be0| 29 20 26 26 20 22 54 72 | 75 6d 70 73 22 20 69 6e |) && "Tr|umps" in|
|00004bf0| 74 6f 20 63 31 0d 69 66 | 20 6e 31 20 3e 20 39 20 |to c1.if| n1 > 9 |
|00004c00| 74 68 65 6e 0d 70 75 74 | 20 65 6e 64 4e 75 6d 62 |then.put| endNumb|
|00004c10| 65 72 28 6e 31 29 20 69 | 6e 74 6f 20 6e 32 0d 70 |er(n1) i|nto n2.p|
|00004c20| 75 74 20 28 69 74 65 6d | 20 28 28 6e 32 29 20 2b |ut (item| ((n2) +|
|00004c30| 20 31 29 20 6f 66 20 74 | 29 20 26 26 20 22 54 72 | 1) of t|) && "Tr|
|00004c40| 75 6d 70 73 22 20 69 6e | 74 6f 20 63 32 0d 62 6c |umps" in|to c2.bl|
|00004c50| 61 6e 6b 43 61 72 64 73 | 20 22 44 69 6d 6d 65 64 |ankCards| "Dimmed|
|00004c60| 22 2c 32 0d 65 6c 73 65 | 20 70 75 74 20 22 3f 20 |",2.else| put "? |
|00004c70| 3f 22 20 69 6e 74 6f 20 | 63 32 0d 69 66 20 6e 32 |?" into |c2.if n2|
|00004c80| 20 3e 20 39 20 74 68 65 | 6e 0d 70 75 74 20 65 6e | > 9 the|n.put en|
|00004c90| 64 4e 75 6d 62 65 72 28 | 6e 32 29 20 69 6e 74 6f |dNumber(|n2) into|
|00004ca0| 20 6e 33 0d 70 75 74 20 | 28 69 74 65 6d 20 28 28 | n3.put |(item ((|
|00004cb0| 6e 33 29 20 2b 20 31 29 | 20 6f 66 20 74 29 20 26 |n3) + 1)| of t) &|
|00004cc0| 26 20 22 54 72 75 6d 70 | 73 22 20 69 6e 74 6f 20 |& "Trump|s" into |
|00004cd0| 63 33 0d 62 6c 61 6e 6b | 43 61 72 64 73 20 22 44 |c3.blank|Cards "D|
|00004ce0| 69 6d 6d 65 64 22 2c 33 | 0d 65 6c 73 65 20 70 75 |immed",3|.else pu|
|00004cf0| 74 20 22 3f 20 3f 22 20 | 69 6e 74 6f 20 63 33 0d |t "? ?" |into c3.|
|00004d00| 69 66 20 63 33 20 ad 20 | 22 3f 20 3f 22 20 74 68 |if c3 . |"? ?" th|
|00004d10| 65 6e 0d 70 75 74 20 63 | 32 20 69 6e 74 6f 20 69 |en.put c|2 into i|
|00004d20| 0d 70 75 74 20 63 33 20 | 69 6e 74 6f 20 63 32 0d |.put c3 |into c2.|
|00004d30| 70 75 74 20 69 20 69 6e | 74 6f 20 63 33 0d 65 6e |put i in|to c3.en|
|00004d40| 64 20 69 66 0d 69 66 20 | 63 32 20 3d 20 22 3f 20 |d if.if |c2 = "? |
|00004d50| 3f 22 20 61 6e 64 20 63 | 33 20 3d 20 22 3f 20 3f |?" and c|3 = "? ?|
|00004d60| 22 20 74 68 65 6e 20 2d | 2d 20 6f 6e 65 20 63 64 |" then -|- one cd|
|00004d70| 20 6f 6e 6c 79 0d 67 65 | 74 20 33 34 32 0d 65 6c | only.ge|t 342.el|
|00004d80| 73 65 20 69 66 20 63 33 | 20 3d 20 22 3f 20 3f 22 |se if c3| = "? ?"|
|00004d90| 20 74 68 65 6e 20 2d 2d | 20 74 77 6f 20 63 64 73 | then --| two cds|
|00004da0| 0d 67 65 74 20 33 31 39 | 0d 65 6c 73 65 20 67 65 |.get 319|.else ge|
|00004db0| 74 20 32 39 38 0d 73 65 | 74 20 74 68 65 20 6c 6f |t 298.se|t the lo|
|00004dc0| 63 20 6f 66 20 66 6c 64 | 20 22 54 69 74 6c 65 22 |c of fld| "Title"|
|00004dd0| 20 74 6f 20 28 69 74 20 | 26 20 22 2c 31 36 22 29 | to (it |& ",16")|
|00004de0| 0d 70 75 74 20 22 50 45 | 52 53 4f 4e 41 4c 49 54 |.put "PE|RSONALIT|
|00004df0| 59 22 20 69 6e 74 6f 20 | 66 6c 64 20 22 54 69 74 |Y" into |fld "Tit|
|00004e00| 6c 65 22 0d 72 65 74 75 | 72 6e 20 63 31 20 26 20 |le".retu|rn c1 & |
|00004e10| 63 6f 6d 6d 61 20 26 20 | 63 32 20 26 20 63 6f 6d |comma & |c2 & com|
|00004e20| 6d 61 20 26 20 63 33 0d | 65 6e 64 20 70 65 72 73 |ma & c3.|end pers|
|00004e30| 6f 6e 61 6c 69 74 79 0d | 0d 66 75 6e 63 74 69 6f |onality.|.functio|
|00004e40| 6e 20 77 68 69 63 68 43 | 79 63 6c 65 20 62 69 72 |n whichC|ycle bir|
|00004e50| 74 68 44 61 74 65 2c 74 | 68 65 59 65 61 72 0d 2d |thDate,t|heYear.-|
|00004e60| 2d 20 43 6f 70 79 72 69 | 67 68 74 20 a9 20 31 39 |- Copyri|ght . 19|
|00004e70| 39 33 20 53 69 6d 6f 6e | 20 50 6f 69 73 73 6f 6e |93 Simon| Poisson|
|00004e80| 2e 20 41 6c 6c 20 72 69 | 67 68 74 73 20 72 65 73 |. All ri|ghts res|
|00004e90| 65 72 76 65 64 2e 0d 70 | 75 74 20 22 30 2c 49 2c |erved..p|ut "0,I,|
|00004ea0| 49 49 2c 49 49 49 2c 49 | 56 2c 56 2c 56 49 2c 56 |II,III,I|V,V,VI,V|
|00004eb0| 49 49 2c 56 49 49 49 2c | 49 58 2c 58 2c 58 49 2c |II,VIII,|IX,X,XI,|
|00004ec0| 58 49 49 2c 58 49 49 49 | 2c 58 49 56 2c 58 56 2c |XII,XIII|,XIV,XV,|
|00004ed0| 58 56 49 2c 58 56 49 49 | 2c 58 56 49 49 49 2c 58 |XVI,XVII|,XVIII,X|
|00004ee0| 49 58 2c 58 58 2c 58 58 | 49 22 20 69 6e 74 6f 20 |IX,XX,XX|I" into |
|00004ef0| 72 4e 0d 63 6f 6e 76 65 | 72 74 20 62 69 72 74 68 |rN.conve|rt birth|
|00004f00| 44 61 74 65 20 74 6f 20 | 64 61 74 65 49 74 65 6d |Date to |dateItem|
|00004f10| 73 0d 70 75 74 20 69 74 | 65 6d 20 33 20 6f 66 20 |s.put it|em 3 of |
|00004f20| 62 69 72 74 68 44 61 74 | 65 20 69 6e 74 6f 20 74 |birthDat|e into t|
|00004f30| 68 65 44 61 79 0d 70 75 | 74 20 69 74 65 6d 20 32 |heDay.pu|t item 2|
|00004f40| 20 6f 66 20 62 69 72 74 | 68 44 61 74 65 20 69 6e | of birt|hDate in|
|00004f50| 74 6f 20 74 68 65 4d 6f | 6e 74 68 0d 70 75 74 20 |to theMo|nth.put |
|00004f60| 28 74 68 65 44 61 79 20 | 2b 20 74 68 65 4d 6f 6e |(theDay |+ theMon|
|00004f70| 74 68 20 2b 20 74 68 65 | 59 65 61 72 29 20 69 6e |th + the|Year) in|
|00004f80| 74 6f 20 74 65 73 74 44 | 69 67 69 74 73 0d 70 75 |to testD|igits.pu|
|00004f90| 74 20 30 20 69 6e 74 6f | 20 73 74 61 72 74 44 69 |t 0 into| startDi|
|00004fa0| 66 66 65 72 65 6e 63 65 | 20 2d 2d 20 c6 20 73 74 |fference| -- . st|
|00004fb0| 61 72 74 20 6f 66 20 63 | 79 63 6c 65 0d 72 65 70 |art of c|ycle.rep|
|00004fc0| 65 61 74 20 66 6f 72 65 | 76 65 72 0d 70 75 74 20 |eat fore|ver.put |
|00004fd0| 65 6e 64 4e 75 6d 62 65 | 72 20 28 74 65 73 74 44 |endNumbe|r (testD|
|00004fe0| 69 67 69 74 73 29 20 69 | 6e 74 6f 20 69 0d 69 66 |igits) i|nto i.if|
|00004ff0| 20 69 20 3e 20 32 31 20 | 74 68 65 6e 20 70 75 74 | i > 21 |then put|
|00005000| 20 65 6e 64 4e 75 6d 62 | 65 72 20 28 69 29 20 69 | endNumb|er (i) i|
|00005010| 6e 74 6f 20 69 0d 70 75 | 74 20 65 6e 64 4e 75 6d |nto i.pu|t endNum|
|00005020| 62 65 72 20 28 74 65 73 | 74 44 69 67 69 74 73 20 |ber (tes|tDigits |
|00005030| 2d 20 31 29 20 69 6e 74 | 6f 20 6a 0d 69 66 20 6a |- 1) int|o j.if j|
|00005040| 20 3e 20 32 31 20 74 68 | 65 6e 20 70 75 74 20 65 | > 21 th|en put e|
|00005050| 6e 64 4e 75 6d 62 65 72 | 20 28 6a 29 20 69 6e 74 |ndNumber| (j) int|
|00005060| 6f 20 6a 0d 69 66 20 6a | 20 ad 20 28 69 20 2d 20 |o j.if j| . (i - |
|00005070| 31 29 20 74 68 65 6e 0d | 70 75 74 20 74 65 73 74 |1) then.|put test|
|00005080| 44 69 67 69 74 73 20 69 | 6e 74 6f 20 73 74 61 72 |Digits i|nto star|
|00005090| 74 4e 75 6d 62 65 72 0d | 65 78 69 74 20 72 65 70 |tNumber.|exit rep|
|000050a0| 65 61 74 0d 65 6e 64 20 | 69 66 0d 73 75 62 74 72 |eat.end |if.subtr|
|000050b0| 61 63 74 20 31 20 66 72 | 6f 6d 20 74 65 73 74 44 |act 1 fr|om testD|
|000050c0| 69 67 69 74 73 0d 73 75 | 62 74 72 61 63 74 20 31 |igits.su|btract 1|
|000050d0| 20 66 72 6f 6d 20 73 74 | 61 72 74 44 69 66 66 65 | from st|artDiffe|
|000050e0| 72 65 6e 63 65 0d 65 6e | 64 20 72 65 70 65 61 74 |rence.en|d repeat|
|000050f0| 0d 70 75 74 20 28 74 68 | 65 44 61 79 20 2b 20 74 |.put (th|eDay + t|
|00005100| 68 65 4d 6f 6e 74 68 20 | 2b 20 74 68 65 59 65 61 |heMonth |+ theYea|
|00005110| 72 29 20 69 6e 74 6f 20 | 74 65 73 74 44 69 67 69 |r) into |testDigi|
|00005120| 74 73 0d 70 75 74 20 30 | 20 69 6e 74 6f 20 66 69 |ts.put 0| into fi|
|00005130| 6e 69 73 68 44 69 66 66 | 65 72 65 6e 63 65 20 2d |nishDiff|erence -|
|00005140| 2d 20 c6 20 65 6e 64 20 | 6f 66 20 63 79 63 6c 65 |- . end |of cycle|
|00005150| 0d 72 65 70 65 61 74 20 | 66 6f 72 65 76 65 72 0d |.repeat |forever.|
|00005160| 70 75 74 20 65 6e 64 4e | 75 6d 62 65 72 20 28 74 |put endN|umber (t|
|00005170| 65 73 74 44 69 67 69 74 | 73 29 20 69 6e 74 6f 20 |estDigit|s) into |
|00005180| 69 0d 69 66 20 69 20 3e | 20 32 31 20 74 68 65 6e |i.if i >| 21 then|
|00005190| 20 70 75 74 20 65 6e 64 | 4e 75 6d 62 65 72 20 28 | put end|Number (|
|000051a0| 69 29 20 69 6e 74 6f 20 | 69 0d 70 75 74 20 65 6e |i) into |i.put en|
|000051b0| 64 4e 75 6d 62 65 72 20 | 28 74 65 73 74 44 69 67 |dNumber |(testDig|
|000051c0| 69 74 73 20 2b 20 31 29 | 20 69 6e 74 6f 20 6a 0d |its + 1)| into j.|
|000051d0| 69 66 20 6a 20 3e 20 32 | 31 20 74 68 65 6e 20 70 |if j > 2|1 then p|
|000051e0| 75 74 20 65 6e 64 4e 75 | 6d 62 65 72 20 28 6a 29 |ut endNu|mber (j)|
|000051f0| 20 69 6e 74 6f 20 6a 0d | 69 66 20 6a 20 ad 20 28 | into j.|if j . (|
|00005200| 69 20 2b 20 31 29 20 74 | 68 65 6e 0d 70 75 74 20 |i + 1) t|hen.put |
|00005210| 74 65 73 74 44 69 67 69 | 74 73 20 69 6e 74 6f 20 |testDigi|ts into |
|00005220| 66 69 6e 69 73 68 4e 75 | 6d 62 65 72 0d 65 78 69 |finishNu|mber.exi|
|00005230| 74 20 72 65 70 65 61 74 | 0d 65 6e 64 20 69 66 0d |t repeat|.end if.|
|00005240| 61 64 64 20 31 20 74 6f | 20 74 65 73 74 44 69 67 |add 1 to| testDig|
|00005250| 69 74 73 0d 61 64 64 20 | 31 20 74 6f 20 66 69 6e |its.add |1 to fin|
|00005260| 69 73 68 44 69 66 66 65 | 72 65 6e 63 65 0d 65 6e |ishDiffe|rence.en|
|00005270| 64 20 72 65 70 65 61 74 | 0d 70 75 74 20 65 6e 64 |d repeat|.put end|
|00005280| 4e 75 6d 62 65 72 28 73 | 74 61 72 74 4e 75 6d 62 |Number(s|tartNumb|
|00005290| 65 72 29 20 69 6e 74 6f | 20 69 0d 69 66 20 69 20 |er) into| i.if i |
|000052a0| 3e 20 32 31 20 74 68 65 | 6e 20 70 75 74 20 65 6e |> 21 the|n put en|
|000052b0| 64 4e 75 6d 62 65 72 28 | 69 29 20 69 6e 74 6f 20 |dNumber(|i) into |
|000052c0| 69 0d 70 75 74 20 28 69 | 74 65 6d 20 69 2b 31 20 |i.put (i|tem i+1 |
|000052d0| 6f 66 20 72 4e 29 20 26 | 26 20 22 54 72 75 6d 70 |of rN) &|& "Trump|
|000052e0| 73 22 20 69 6e 74 6f 20 | 74 65 6d 70 43 79 63 6c |s" into |tempCycl|
|000052f0| 65 20 2d 2d 20 c6 0d 70 | 75 74 20 28 74 68 65 59 |e -- ..p|ut (theY|
|00005300| 65 61 72 20 2b 20 73 74 | 61 72 74 44 69 66 66 65 |ear + st|artDiffe|
|00005310| 72 65 6e 63 65 29 20 69 | 6e 74 6f 20 74 65 6d 70 |rence) i|nto temp|
|00005320| 43 79 63 6c 65 53 74 61 | 72 74 20 2d 2d 20 c6 0d |CycleSta|rt -- ..|
|00005330| 70 75 74 20 28 74 68 65 | 59 65 61 72 20 2b 20 66 |put (the|Year + f|
|00005340| 69 6e 69 73 68 44 69 66 | 66 65 72 65 6e 63 65 29 |inishDif|ference)|
|00005350| 20 69 6e 74 6f 20 74 65 | 6d 70 43 79 63 6c 65 45 | into te|mpCycleE|
|00005360| 6e 64 20 2d 2d 20 c6 0d | 70 75 74 20 65 6d 70 74 |nd -- ..|put empt|
|00005370| 79 20 69 6e 74 6f 20 63 | 79 63 6c 65 59 65 61 72 |y into c|ycleYear|
|00005380| 73 0d 72 65 70 65 61 74 | 20 77 69 74 68 20 69 20 |s.repeat| with i |
|00005390| 3d 20 74 65 6d 70 43 79 | 63 6c 65 53 74 61 72 74 |= tempCy|cleStart|
|000053a0| 20 74 6f 20 74 65 6d 70 | 43 79 63 6c 65 45 6e 64 | to temp|CycleEnd|
|000053b0| 0d 70 75 74 20 65 6e 64 | 4e 75 6d 62 65 72 28 74 |.put end|Number(t|
|000053c0| 68 65 44 61 79 20 2b 20 | 74 68 65 4d 6f 6e 74 68 |heDay + |theMonth|
|000053d0| 20 2b 20 69 29 20 69 6e | 74 6f 20 6e 75 6d 62 65 | + i) in|to numbe|
|000053e0| 72 31 0d 69 66 20 6e 75 | 6d 62 65 72 31 20 3e 20 |r1.if nu|mber1 > |
|000053f0| 32 31 20 74 68 65 6e 20 | 70 75 74 20 65 6e 64 4e |21 then |put endN|
|00005400| 75 6d 62 65 72 28 6e 75 | 6d 62 65 72 31 29 20 69 |umber(nu|mber1) i|
|00005410| 6e 74 6f 20 6e 75 6d 62 | 65 72 31 0d 70 75 74 20 |nto numb|er1.put |
|00005420| 28 69 74 65 6d 20 6e 75 | 6d 62 65 72 31 2b 31 20 |(item nu|mber1+1 |
|00005430| 6f 66 20 72 4e 29 20 26 | 26 20 22 54 72 75 6d 70 |of rN) &|& "Trump|
|00005440| 73 22 20 26 20 22 2c 22 | 20 61 66 74 65 72 20 63 |s" & ","| after c|
|00005450| 79 63 6c 65 59 65 61 72 | 73 20 2d 2d 20 c6 0d 65 |ycleYear|s -- ..e|
|00005460| 6e 64 20 72 65 70 65 61 | 74 0d 69 66 20 6e 69 28 |nd repea|t.if ni(|
|00005470| 63 79 63 6c 65 59 65 61 | 72 73 29 20 3c 20 31 36 |cycleYea|rs) < 16|
|00005480| 20 74 68 65 6e 0d 72 65 | 70 65 61 74 20 77 69 74 | then.re|peat wit|
|00005490| 68 20 69 20 3d 20 31 20 | 74 6f 20 28 31 36 20 2d |h i = 1 |to (16 -|
|000054a0| 20 6e 69 28 63 79 63 6c | 65 59 65 61 72 73 29 29 | ni(cycl|eYears))|
|000054b0| 0d 70 75 74 20 22 3f 20 | 3f 2c 22 20 61 66 74 65 |.put "? |?," afte|
|000054c0| 72 20 63 79 63 6c 65 59 | 65 61 72 73 0d 65 6e 64 |r cycleY|ears.end|
|000054d0| 20 72 65 70 65 61 74 0d | 65 6e 64 20 69 66 0d 64 | repeat.|end if.d|
|000054e0| 65 6c 65 74 65 20 74 68 | 65 20 6c 61 73 74 20 63 |elete th|e last c|
|000054f0| 68 61 72 20 6f 66 20 63 | 79 63 6c 65 59 65 61 72 |har of c|ycleYear|
|00005500| 73 0d 72 65 74 75 72 6e | 20 74 65 6d 70 43 79 63 |s.return| tempCyc|
|00005510| 6c 65 53 74 61 72 74 20 | 26 20 63 6f 6d 6d 61 20 |leStart |& comma |
|00005520| 26 20 74 65 6d 70 43 79 | 63 6c 65 45 6e 64 20 26 |& tempCy|cleEnd &|
|00005530| 20 72 65 74 75 72 6e 20 | 26 20 c2 0d 74 65 6d 70 | return |& ..temp|
|00005540| 43 79 63 6c 65 20 26 20 | 63 6f 6d 6d 61 20 26 20 |Cycle & |comma & |
|00005550| 63 79 63 6c 65 59 65 61 | 72 73 0d 65 6e 64 20 77 |cycleYea|rs.end w|
|00005560| 68 69 63 68 43 79 63 6c | 65 0d 0d 66 75 6e 63 74 |hichCycl|e..funct|
|00005570| 69 6f 6e 20 65 6e 64 4e | 75 6d 62 65 72 20 74 68 |ion endN|umber th|
|00005580| 65 4e 75 6d 62 65 72 0d | 2d 2d 20 43 6f 70 79 72 |eNumber.|-- Copyr|
|00005590| 69 67 68 74 20 a9 20 31 | 39 39 33 20 53 69 6d 6f |ight . 1|993 Simo|
|000055a0| 6e 20 50 6f 69 73 73 6f | 6e 0d 69 66 20 74 68 65 |n Poisso|n.if the|
|000055b0| 4e 75 6d 62 65 72 20 69 | 73 20 6e 6f 74 20 61 20 |Number i|s not a |
|000055c0| 6e 75 6d 62 65 72 20 74 | 68 65 6e 20 72 65 74 75 |number t|hen retu|
|000055d0| 72 6e 20 74 68 65 4e 75 | 6d 62 65 72 0d 70 75 74 |rn theNu|mber.put|
|000055e0| 20 30 20 69 6e 74 6f 20 | 74 68 65 52 65 74 75 72 | 0 into |theRetur|
|000055f0| 6e 65 64 4e 75 6d 62 65 | 72 0d 72 65 70 65 61 74 |nedNumbe|r.repeat|
|00005600| 20 77 69 74 68 20 69 20 | 3d 20 31 20 74 6f 20 28 | with i |= 1 to (|
|00005610| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 63 68 |the numb|er of ch|
|00005620| 61 72 73 20 69 6e 20 74 | 68 65 4e 75 6d 62 65 72 |ars in t|heNumber|
|00005630| 29 0d 61 64 64 20 63 68 | 61 72 20 69 20 6f 66 20 |).add ch|ar i of |
|00005640| 74 68 65 4e 75 6d 62 65 | 72 20 74 6f 20 74 68 65 |theNumbe|r to the|
|00005650| 52 65 74 75 72 6e 65 64 | 4e 75 6d 62 65 72 0d 65 |Returned|Number.e|
|00005660| 6e 64 20 72 65 70 65 61 | 74 0d 72 65 74 75 72 6e |nd repea|t.return|
|00005670| 20 74 68 65 52 65 74 75 | 72 6e 65 64 4e 75 6d 62 | theRetu|rnedNumb|
|00005680| 65 72 0d 65 6e 64 20 65 | 6e 64 4e 75 6d 62 65 72 |er.end e|ndNumber|
|00005690| 0d 0d 66 75 6e 63 74 69 | 6f 6e 20 73 6d 61 6c 6c |..functi|on small|
|000056a0| 44 61 74 65 20 79 2c 6d | 2c 64 0d 69 66 20 6d 20 |Date y,m|,d.if m |
|000056b0| 69 73 20 65 6d 70 74 79 | 20 74 68 65 6e 20 70 75 |is empty| then pu|
|000056c0| 74 20 69 74 65 6d 20 32 | 20 6f 66 20 79 20 69 6e |t item 2| of y in|
|000056d0| 74 6f 20 6d 0d 69 66 20 | 64 20 69 73 20 65 6d 70 |to m.if |d is emp|
|000056e0| 74 79 20 74 68 65 6e 20 | 70 75 74 20 69 74 65 6d |ty then |put item|
|000056f0| 20 33 20 6f 66 20 79 20 | 69 6e 74 6f 20 64 0d 70 | 3 of y |into d.p|
|00005700| 75 74 20 61 62 62 72 65 | 76 59 65 61 72 28 69 74 |ut abbre|vYear(it|
|00005710| 65 6d 20 31 20 6f 66 20 | 79 29 20 69 6e 74 6f 20 |em 1 of |y) into |
|00005720| 79 0d 70 75 74 20 69 74 | 65 6d 20 6d 20 6f 66 20 |y.put it|em m of |
|00005730| 22 4a 61 6e 2c 46 65 62 | 2c 4d 61 72 2c 41 70 72 |"Jan,Feb|,Mar,Apr|
|00005740| 2c 4d 61 79 2c 4a 75 6e | 2c 4a 75 6c 2c 41 75 67 |,May,Jun|,Jul,Aug|
|00005750| 2c 53 65 70 2c 4f 63 74 | 2c 4e 6f 76 2c 44 65 63 |,Sep,Oct|,Nov,Dec|
|00005760| 22 20 69 6e 74 6f 20 6d | 0d 69 66 20 63 68 61 72 |" into m|.if char|
|00005770| 20 31 20 6f 66 20 64 61 | 74 65 46 6f 72 6d 61 74 | 1 of da|teFormat|
|00005780| 28 29 20 3d 20 22 44 22 | 20 74 68 65 6e 0d 72 65 |() = "D"| then.re|
|00005790| 74 75 72 6e 20 64 20 26 | 26 20 6d 20 26 26 20 79 |turn d &|& m && y|
|000057a0| 0d 65 6c 73 65 20 72 65 | 74 75 72 6e 20 6d 20 26 |.else re|turn m &|
|000057b0| 26 20 64 20 26 20 22 2c | 22 20 26 26 20 79 0d 65 |& d & ",|" && y.e|
|000057c0| 6e 64 20 73 6d 61 6c 6c | 44 61 74 65 0d 0d 66 75 |nd small|Date..fu|
|000057d0| 6e 63 74 69 6f 6e 20 61 | 62 62 72 65 76 59 65 61 |nction a|bbrevYea|
|000057e0| 72 20 79 0d 70 75 74 20 | 74 68 65 20 64 61 74 65 |r y.put |the date|
|000057f0| 20 69 6e 74 6f 20 64 0d | 63 6f 6e 76 65 72 74 20 | into d.|convert |
|00005800| 64 20 74 6f 20 64 61 74 | 65 49 74 65 6d 73 0d 67 |d to dat|eItems.g|
|00005810| 65 74 20 74 68 65 20 6c | 61 73 74 20 77 6f 72 64 |et the l|ast word|
|00005820| 20 6f 66 20 79 0d 69 66 | 20 63 68 61 72 20 31 20 | of y.if| char 1 |
|00005830| 74 6f 20 32 20 6f 66 20 | 69 74 20 3d 20 63 68 61 |to 2 of |it = cha|
|00005840| 72 20 31 20 74 6f 20 32 | 20 6f 66 20 64 20 61 6e |r 1 to 2| of d an|
|00005850| 64 20 63 68 61 72 20 33 | 20 74 6f 20 34 20 6f 66 |d char 3| to 4 of|
|00005860| 20 69 74 20 3e 20 31 39 | 20 74 68 65 6e 0d 72 65 | it > 19| then.re|
|00005870| 74 75 72 6e 20 22 d5 22 | 20 26 20 28 63 68 61 72 |turn "."| & (char|
|00005880| 20 33 20 74 6f 20 34 20 | 6f 66 20 79 29 0d 65 6c | 3 to 4 |of y).el|
|00005890| 73 65 20 72 65 74 75 72 | 6e 20 79 0d 65 6e 64 20 |se retur|n y.end |
|000058a0| 61 62 62 72 65 76 59 65 | 61 72 0d 0d 66 75 6e 63 |abbrevYe|ar..func|
|000058b0| 74 69 6f 6e 20 77 68 69 | 63 68 50 65 72 73 6f 6e |tion whi|chPerson|
|000058c0| 61 6c 69 74 79 0d 67 65 | 74 20 67 65 74 52 28 29 |ality.ge|t getR()|
|000058d0| 0d 69 66 20 69 74 65 6d | 20 32 20 6f 66 20 69 74 |.if item| 2 of it|
|000058e0| 20 ad 20 22 3f 20 3f 22 | 20 74 68 65 6e 0d 69 66 | . "? ?"| then.if|
|000058f0| 20 69 74 65 6d 20 33 20 | 6f 66 20 69 74 20 3d 20 | item 3 |of it = |
|00005900| 22 3f 20 3f 22 20 74 68 | 65 6e 0d 72 65 74 75 72 |"? ?" th|en.retur|
|00005910| 6e 20 32 0d 65 6c 73 65 | 20 72 65 74 75 72 6e 20 |n 2.else| return |
|00005920| 33 0d 65 6c 73 65 20 72 | 65 74 75 72 6e 20 31 0d |3.else r|eturn 1.|
|00005930| 65 6e 64 20 77 68 69 63 | 68 50 65 72 73 6f 6e 61 |end whic|hPersona|
|00005940| 6c 69 74 79 00 00 00 00 | 00 00 00 00 00 00 00 00 |lity....|........|
|00005950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005960| 00 00 00 00 00 6e 63 74 | 69 6f 6e 20 77 68 69 63 |.....nct|ion whic|
|00005970| 68 50 65 72 73 6f 6e 61 | 6c 69 74 79 0d 67 65 74 |hPersona|lity.get|
|00005980| 20 67 65 74 52 28 29 0d | 69 66 20 69 74 65 6d 20 | getR().|if item |
|00005990| 32 20 6f 66 20 69 74 20 | ad 20 22 3f 20 3f 22 20 |2 of it |. "? ?" |
|000059a0| 74 68 65 6e 0d 69 66 20 | 69 74 65 6d 20 33 20 6f |then.if |item 3 o|
|000059b0| 66 20 69 74 20 3d 20 22 | 3f 20 3f 22 20 74 68 65 |f it = "|? ?" the|
|000059c0| 6e 0d 72 65 74 75 72 6e | 20 32 0d 65 6c 73 65 20 |n.return| 2.else |
|000059d0| 72 65 74 75 72 6e 20 33 | 0d 65 6c 73 65 20 72 65 |return 3|.else re|
|000059e0| 74 75 72 6e 20 31 0d 65 | 6e 64 20 77 68 69 63 68 |turn 1.e|nd which|
|000059f0| 50 65 72 73 6f 6e 61 6c | 69 74 79 00 00 00 00 00 |Personal|ity.....|
|00005a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a80| 00 00 02 00 4d 41 53 54 | ff ff ff ff 00 00 00 00 |....MAST|........|
|00005a90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005aa0| 00 03 6d e1 00 02 e0 b9 | 00 03 24 3a 00 03 69 97 |..m.....|..$:..i.|
|00005ab0| 00 03 70 bf 00 03 73 85 | 00 03 66 50 00 00 00 00 |..p...s.|..fP....|
|00005ac0| 00 00 00 00 00 02 e4 11 | 00 00 00 00 00 00 00 00 |........|........|
|00005ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005c00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005c80| 00 00 00 80 4c 49 53 54 | 00 00 09 b9 00 00 00 00 |....LIST|........|
|00005c90| 00 00 00 01 00 00 08 00 | 00 00 00 01 00 08 00 02 |........|........|
|00005ca0| 00 01 00 03 20 00 02 23 | 00 00 00 01 00 00 00 00 |.... ..#|........|
|00005cb0| 00 00 11 11 00 01 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d00| 00 00 08 00 50 41 47 45 | 00 00 11 11 00 00 00 00 |....PAGE|........|
|00005d10| 00 00 09 b9 e0 00 01 72 | 00 00 0b 97 60 53 4f 83 |.......r|....`SO.|
|00005d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006000| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000060a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000060b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000060c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000060d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000060e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000060f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000061a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000061b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000061c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000061d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000061e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000061f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000062a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000062b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000062c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000062d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000062e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000062f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00006390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000063a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000063b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000063c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000063d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000063e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000063f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
